
A data BECKER Product from Abacus Ei 


AIDA 

TRAINING 

COURSE 

Learn the NEW Structured 
“Language of the Future” 
includes Compiler and Editor 










































ADA TRAINING COURSE 

Structured Language 
of the Future 
for the Commodore-64 


By: V. Sasse 

244uu7 

A DATA BECKER PRODUCT 


Published By: 



Software 


* ADA is a registered trademark of the U.S. Government 







COPYRIGHT NOTICE 


Abacus Software makes this package available for use on a 
single computer only. It is unlawful to copy any portion of 
this software package onto any medium for any purpose other 
than backup. It is unlawful to give away or resell copies 
of any part of this package. Any unauthorized distribution 
of this product deprives the authors of their deserved 
royalties. For use on multiple computers, please contact 
Abacus Software to make such arraangements. 


WARRANTY 

Abacus Software makes no warranties, expressed or implied as 
to the fitness of this software product far any particular 
purpose. In no event will Abacus Software be liable for 
consequential damages. Abacus Software will replace any 
copy of the software which is unreadable if returned within 
SO days of purchase. Thereafter there will be a nominal 
charge for replacement. 


Second Frinting, 

Printed in U.S.A. 
Copyright CC1 1985 

Copyright CCI 19B4 


February 1S85 

Translated by Greg Dykema, Lauren Thompso 
Abacus Software, Inc. 

P.D. Box 7211 

Grand Rapids, MI 43510 

Data Becker, GmbH 

Merowingerstr. 30 

4000 Dusseldarf, til. Germany 


ISBN # 0-816433-15-1 



Table of Contents 


INTRODUCTION.i 

1. The EDITOR.1 

1.1. START MENU.3 

1.2. UIRITE/EDIT MENU.3 

1.3. COMMAND MENU.8 

2. USING THE COMPILER.11 

3. ABOUT THE ADA TRAINING COURSE.15 

4. WRITING OUR FIRST ADA PROGRAM.IS 

5. TEXT OUTPUT.23 

6. SCREEN CONTROL.29 

7. DATA OBJECTS.35 

7.1 TYPES.35 

B. DATA INPUT AND OUTPUT.41 

S. UALUE ASSIGNMENTS.45 

10. FUNCTIONS.4S 

11. DECISIONS.53 

12. LOOPS.57 


13. JUMPS 


63 





















14. THE OPERATION OF THE COMPILER 


65 


15. LEXICAL ANALYSIS.6S 

16. SYNTACTIC ANALYSIS.73 

16.1 THE LLCl] PLEASURE GARDEN PART 1:.75 

16.2 THE LLCIJ PLEASURE GARDEN PART 2:.81 

17. UATCHING THE PARSER DO ITS WORK.85 

17.1 ERROR HANDLING.88 

17.2 THE LIST OF CODED ADA WORDS.30 

18. SEMANTIC ANALYSIS.83 

18. ADA GRAMMER.87 

18.1. THE RULES OF GRAMMER.88 

18.2. INDEX TO THE GRAMMER .107 

20. THE ASSEMBLER.113 

20.1 OPERANDS.115 

20.2 PSUEDO-OPS.113 

21. THE DISASSEMBLER.125 

22. COMPILER ERROR MESSAGES.131 

23. RUNTIME ERRORS.133 

23.1 TRACE.134 

24. THE ADA KEYWORDS.135 



25. PROBLEM SOLUTIONS 


137 
























Abacus Software 


ADA Training Course 


The Ada Training Course 


Introduction 


What is Ada? 

Ada is one of a new generation of programming languages. It 
gets its name from from the Countess Ada Lovelace, the 
daughter of the English author Lord Byron. The Countess 
lived in England during the 18th century and is the first 
person to determine how a calculating machine, developed by 
Charles Babbage, could be programmed. She is considered to 
be the first programmer in the world. 

Until now ADA was only known in the higher levels of data 
processing (on mainframes), largely because there was no ADA 
compiler for the computers which "people like you and I" 
own. ADA is the language of the future and one should at 
least become acquainted with it. This is exactly what the 
Ada training course allows you to do. Part of the training 
course is an Ada compiler which compiles a subset of this 
language into machine language. 

This training course includes: 

1) The program diskette 

2) The text book 
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The program diskette: 


There are five main programs on the diskette. 

A) The EDITOR 

You write your ADA programs with the editor. The 
editor also includes complete disk management 
capabilities. You can easily send commands to your 
disk drive, display the directory listing or send 
it to a printer, etc. 

B) The syntax-checker for your ADA programs 

This program tests your ADA programs for syntactic 
correctness. If you are not sure what the syntax 
of the ADA programming language is, refer to the 
text book. 


C) The semantics-checker and code generator for your 
ADA programs. 


The program checks your ADA programs for syntactic 
correctness and a creates a very fast assembler 
program. 

D) The assembler 


The assembler can be used together with 
compiler, or may be used separately from 
can use it to assemble the assembler 
produced by the ADA compiler or your own 
language programs. 


the ADA 
it. You 
programs 
machine 
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E) The disassembler 


With the disassembler you can 
the computer’s memory back 
mnemonics. This allows you 
language programs. 


convert op-codes in 
into the assembler 
to analyze machine 


The text book: 

The operation of the programs are described in detail in 
this text. You will receive an introduction to the ADA 
language including examples, problems, and the corresponding 
solutions. 

This is a true training course with which you will acquaint 
yourself with data processing fundamentals. The knowledge 
acquired can also be transferable to other programming 
languages. 

You will not only learn the basics of a new language, ADA, 
but also how programming-language compilers work, what 
methods they use, and what they in principle can and cannot 
do. 


You will certainly become better acquainted with your 
computer and even enter into the world of machine language 
programming. The most important utilities necessary to do 
so are included in this training course. 
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1. The Editor 


The editor is the program that you will be using most as a 
user of the ADA Training Course. You will write your 
programs with it and carry out compilation from it. 

The editor offers a number of other capabilities as well. It 
can : 

save your programs to diskette 

- load your programs from diskette 

- print your programs 

- inform you of memory space remaining 
display the disk directory 

- scratch files on the diskette 

- transmit commands to the disk drive 

Let’s try out the various functions of the editor so that we 
may acquaint ourselves with the most important program in 
the ADA training course. 

Turn on your computer, disk drive and (if present) printer. 
Insert the distribution diskette into the disk drive (By 
distribution diskette we mean the disk which you received 
with your Ada training course). Load the editor with the 
command: 


LOAD"ED ITOR",8,1 <RETURN> 

After about a minute the program will be completely loaded. 
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Remove the distribution diskette from the disk drive and 
replace it with a new formatted disk or one containing data 
you no longer need. Press <RETURN> 

The START menu appears on the screen. 

The editor has a total of three menus: 

Menu - START 

- COMMANDS 

- WRITE/EDIT 

These three menus can be reached with the keys <@>, <*>, and 

<?> (up arrow) respectively. These keys are operational when 
the computer has finished the task you have instructed it to 
perform. 

The options in the START menu allow you to select a function 

so that all of the keys repeat and to select the colors for 

the characters, the screen border, and the background. Press 
the <fl> and then select your preference in color 

combinations. Now press the <*> key. 

The COMMAND menu appears on the screen. From this menu you 
can access all of the general commands listed below. 

- save your programs on diskette 

- load your programs from diskette 

- print your programs 

- inform you of memory space remaining 

- display the disk directory 

- scratch files on the diskette 

- transmit commands to the disk drive 
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The <T> (up arrow) key brings us to the WHITE/EDIT menu. 
This menu allows you to create a new program or edit an 
existing one. 

We will now discuss the menus individually. Each menu option 
can be selected by pressing the appropriate key. Press the 
<®> to return to the START menu. 


1.1. START menu 

By pressing the function key <fl> we can make all of the 
keys repeat, meaning that holding a key down will cause that 
character to be entered repeatedly. The <f3> key allows us 
to turn this feature off. 

The function key <f2> (obtained by pressing <SHIFT> and <fl> 
at the same time) changes the color of the screen border. 
Simply press <f2> until you get the color which is most 
pleasing to you. <f4> changes the color of the background in 
a similar manner and <f6> changes the character color. 


1.2. WRITE/EDIT menu 


This menu is accessed with <T> (up arrow). Press the <?> 
(up arrow) key to enter the WRITE/EDIT menu. 


Now we will 
the editor, 
and see what 


learn how we can create and edit a program with 
We will go through each command of the editor 
effects they have. 
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The operation of a key pressed in error can be undone by 
immediately pressing the <RETURN> key. Wherever a 
particularly damaging error may occur, the computer will ask 
to make sure that the function is really intended. 


Pressing the <f2> key prepares the editor for entering a new 
program. A message confirming the selection of the option 
"Input" appears on the screen followed by three lines 
containing other information with which we need not concern 
ourselves with at the moment. The number ”00010" appears in 
the fifth line followed by a reverse question mark. This is 
the first line number of our text. These line numbers are 
irrelevant to the Ada program! They are used only so that 
the user can quickly find a given program line. This Ada 
Training Course makes references to the line numbers to make 
corrections easier. Behind the line number is a field with a 
question mark in the color which we chose for the 
characters. This is the CURSOR. It indicates the place at 
which the next input will appear. Please enter the sentence: 

"This is supposed to be an Ada program." 


If you made a mistake while typing, you can erase the last 
character or with repeated use, the last characters, on the 
line by using the DEL (delete) key. 


The editor 
sense in an 
nonsensical 
character is 
combination. 


will accept only those 
Ada program. It works as 
input. If the cursor 
entered, you have press 


characters which make 
a filter, filtering out 
fails to move and no 
ed an illegal key or key 
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We move to the next input line by pressing the <RETURN> key. 
The line number "00020" appears on the screen. Assuming we 
do not want to enter any more lines, we can exit the input 
mode by pressing the <RETURN> key again. Please press the 
<RETURN> key now. The computer confirms the exit from the 
INPUT mode with the message: 

**** Input done **** 

And the cursor disappears. 

In place of our sentence we could have entered an Ada 
program consisting of a set of instructions. The sentence 
"This is supposed to be an Ada program." will suffice in 
order to acquaint ourselves with the editor. 

Please press the <fl> key now. The <fl> key returns us to 
the start of the text and informs us of this with the 
message: 


**** Beginning **** 

Please press the <f7> now. With the help of the <f7> key we 
can we can view our program line by line. Please press the 
<f7> again. At the end of the text the computer responds 
with the message: 

**** End **** 

Press the <?> (up arrow) key now. The <T> (up arrow) key 
will return you to the WRITE/EDIT menu. 
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You can go immediately to the end of the program by 
pressing <f3>. Function key <f5> allows you to step 

backwards through the program. Feel free to try out each of 
the keys and become accustomed to their use. If you forget 
any of the keys meanings, you can see the WRITE/EDIT menu 
again with <?> (up arrow>. 

If you want to add additional lines to the program, press 
the <f2> key. Press the <f2> key now. The editor gives you 
the next possible line number and allows you to enter 
additional lines. Enter the line "Sentence 2", press 

<RETURN> and enter the line "Sentence 3" , press <RETURN>. 
To exit the input mode press <RETURN>. The computer leaves 
the input mode when you press <RETURN> over an empty line. 

If you want to edit an already existing line, do the 
following: List the line to be changed using <f5> or <f7> 

and then press <f6> . The cursor will appear in reverse. You 
can move through the line with the cursor keys and change 
characters by simply writing over them. When you are done 
editing the line, press <RETURN>. Try changing the number 
"3" in line 00030 to "4". To do so press the <f5> key to 

list line 00030 then press the <f6> key. Check to see if 

line 0030 is changed by entering the menu mode <1> (up 
arrow), then list the complete text by pressing the <f7> key 
four times. 

The editor also allows us to insert lines between existing 
lines. If, for instance, we want to insert a line between 
the second and third lines, we list line two (0020) and then 
press <f8> . Do so now. The computer confirms this by 
printing the line number "00021" and the cursor reappears. 
We enter the line as we did before under the "Input" 
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command. Something like "This line follows line 00020". We 
terminate the input with <RETURN> and the line number 
"00022" appears . We again exit this mode by pressing 
<RETURN> before typing anything else on the line. Up to nine 
lines can be inserted since the editor numbers the lines by 
ten. The editor saves the inserted lines differently and 
inserts them into our program at the end of the command. It 
gives us the appropriate messages on the screen. 

If we would like to have all of the lines numbered by ten 
again, we simply press <f4> . Using this option we can insert 
as many lines as desired. Do so now, then liBt the 
renumbered text using the <f7> key. 

There are two possibilities for erasing lines: with the 
"pound" key or the left-arrow key. You can erase individual 
lines with the pound key and entire blocks with the left 
arrow. Pressing the pound key erases the line which you last 
listed with <f5> or <f7>. List line 00030 and then delete 
it using the "pound key". Check to be sure line 00030 was 
deleted, then renumber the text using the <f4> key. 

Now press the left-arrow key to delete a range of lines. 
After pressing the left-arrow key you will be asked "from 
line you must then enter a line number and press 
<RETURN>. Enter 20 and press <RETURN>. The question "to 
line :" is answered in the same way. Enter 30 and press 
<RETURN>. List the text to be sure the lines "from line 20" 
"to line 30” were deleted. 

With this we complete our discussion of the WRITE/EDIT menu 
and all that remains is the COMMAND menu. 
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1.3. COMMAND senu: 


In order to follow the examples in this section, you should 
have at least one line of text in memory. 

Press <*> and we enter the COMMAND menu. 

First we would like to ask the computer how much space is 
left in memory so that we know how much we can add to our 
program. The function key <f7> does this for us. Please 
press the <f7> key now to view the available memory. The 
computer responds with the message (free memory may be 
different): 


**** 20045 Characters free **** 

If you are certain that you no longer need the contents of 
the diskette in the disk drive, you will want to format this 
diskette and become acquainted with the function "Send 
command to disk drive.” Press <f6> and the following 
message will appear: 

**** Command to disk **** 

Command ? 

We enter: "n:data,01" and press the <HETUHN> key, thereby 

sending the command to format a disk to the disk drive. The 
name "data" and the identification code "01" are placed on 
the disk. The disk drive requires some time to execute this 
command. If you made an error while typing the command, the 
drive will usually respond with a "SYNTAX ERROR." You simply 
correct the command in this case. In general, you can 
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transmit any command found in chapter 4 of the disk drive 
manual to the drive in this manner. 

We need only press the <fl> key in order to save our Ada 
program to the diskette. You will be asked for a name. After 
entering this name, press <RETURN> and the disk drive will 
proceed to save the program. 

Press <f5> to make sure that the file was saved correctly. 
You will receive information concerning the name of the 
disk, its identification number and the DOS version the disk 
was formatted under. 

A program can be loaded back into the editor with the <f3> 
key. You are asked for the name of the program, and after 
this input and subsequently pressing <RETURN> the command 
will be executed. 

Programs on the diskette can be removed with the command 
"Delete file." After pressing <f8> you are asked for the 
name of the file which is to be erased. After entering the 
name of the file and pressing <RETUKN> the file will be 
deleted from the disk. 

The <f4> key is used to print a program on the printer. You 
must enter a comment which appears as a header for the 
listing. Leading spaces may be entered by pressing <SHIFT> 
and the space bar together. 

With the function key <f2> we start the Ada compiler. The 
program currently in memory is compiled. You will be asked 
if you want to first save the program because the memory 
will be cleared after the compiler has done the first part 
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of its work. See the following section "Using the compiler" 
for more information. 

This concludes the section on the Ada editor. It would be a 
good idea to practice using the editor, so you may become 
accustomed to using it. 
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2. Using the compiler 

After you have written a program with the editor, enter the 
COMMAND menu and press the <f2> key. You will be asked if 
this key has been pressed in error. If you enter a character 
other than "y" and press <RETURN>, the command will be 
terminated. The compiler will then ask if you would like to 
include a TRACE function on the compiled program. This will 
cause the compiled program to print the sequence of line 
numbers from the Ada source code as it executes. Unless you 
are having problems with a program the usual answer is NO. 
When you press <RETURN>, you will then be asked if you want 
to save the program. This can be skipped by entering a 
character other than "y" and pressing <RETURN>. If you press 
only <RETURN>, you must give a name for your program. If a 
program by the same name is found on the disk, it will be 
erased and the new program saved in it’s place. 

After saving the program (or skipping this option), the 
compiler begins with the lexical analysis. When this is 
done, the computer will require the distribution diskette in 
order to load the syntactic analysis program. After this 
program is loaded you must reinsert your data disk. 

After the the syntactic analysis the computer again requires 
the distribution diskette in order to load the semantic 
analysis program. Then your data disk is again needed in 
order to continue the compilation. 

If an error was encountered during the syntactic analysis of 
your program, you can load the editor directly in order to 
correct the program. 
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The program for semantic analysis creates an assembly 
language program with the name "ADA.SRC". 

If the semantic analyzer discovers an error, you can reload 
the editor at the end of the semantic analysis. 

If the program compiled successfully, load the assembler in 
order to assemble the ADA.SRC program. A third option is to 
end the program and load ADA.SRC into the computer. 

Load the assembler with: 

LOAD "ASSEMBLER”,8,1 

Load the assembly language program with: 

LOAD "ADA.SRC",8 

If you load the assembler, you will be asked for the name of 
the program which you would like to assemble. If you press 
<RETURN>, ADA.SRC will be assembled. You can also enter the 
name of a different assembly language program, however. 

The finished machine language program receives the extension 
".OBJ". A machine language program created from an Ada 
program can be loaded with: 

LOAD "ADA.OBJ",8,1 

and your own programs with: 

LOAD "name.OBJ",8,1 
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"ADA.OBJ" can be started with RUN, your own programs 
with SYS start-address. 

Ada on the Commodore 64 is very disk intensive so it is a 
good idea to re-format your data diskettes at regular 
intervals. Remember that reformatting a disk removes all 
information from it, so don't do this to disks which still 
contain information you might want. It has happened to me 
that the disk drive can no longer properly read the files on 
the diskette because the read/write head is misaligned. This 
can produce quite peculiar compilation results! 
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3. About the Ada training course 


In order to better understand the contents of this training 
course, I would first like to present the goals I had when I 
wrote this training course package. 

The goal of the Ada training course is to acquaint you with 
a structured programming language. The language at hand is 
the very new language Ada. You will become acquainted with 
fundamental structures which are present in most modern 
programming languages. The training course is not tied 
exclusively to Ada; you will also learn things about your 
CBM 64. 

A large portion of the training course is concerned with 
programming in assembly language and the use of operating 
system routines. This is because the assembler serves as an 
interface between the "higher level" programing language Ada 
and the 6510 microprocessor which forms the "heart" of your 
computer. 

The operation of the assembler routines will give you 
valuable insight into how you can write your own assembly 
language programs. The assembler and disassembler programs 
included allow you to begin immediately with this. 

Thus the training course operates on two planes, the plane 
of the high-level programming language and the plane of 
machine language. One seeks to develop a language with which 
one can program easily and elegantly, with whose help 
programs (sets of instructions) can be written which can be 
understood by others. 
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Our sets of instructions must be carried out by 
microprocessors. In the construction of the microprocessors, 
the goal is to manipulate memory locations and process their 
contents as quickly as possible. 

The goal of our course can be abstractly formulated as 
follows: Proceeding from an initial condition of our memory 
locations, their contents are to be conveyed to a desired 
condition with the help of the program. The microprocessor 
should carry this out as quickly as possible. 
Microprocessors, however, understand only their own machine 
language and since their are many different microprocessors, 
their are also many different machine languages. If one then 
wants to program in a higher-level language, some connection 
between the high-level language and the machine language of 
the microprocessor is required. The compiler represents this 
connection. The compiler is a program which is designed to 
work with the microprocessor. It translates our program into 
the machine language of the processor in question. A 
compiler generally consists of several programs which 
convert the the program to be translated into machine 
language step by step. 

If one wants to write a compiler which will run on more than 
one computer (microprocessor), a procedure like the 
following will help him to do so: One translates the high- 
level program into the assembly language of a "fictitious" 
microprocessor. A microprocessor which does not exist, but 
which has the fundamental properties of real 
microprocessors. From this language it is no great step to 
the machine language of the individual microprocessor. For 
each new microprocessor, "only" this portion of the compiler 
need be rewritten to make the entire compiler work. One can 
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use the fact that the machine languages of the various 
microprocessor are related. For our compiler, this interface 
is for the 6510 microprocessor. 

You can learn how the programs which create this assembler 
code operate in the sections concerning the operation of the 
compiler. You will learn how programs can be in the 
situation to analyze other complex programs. A few sentences 
about the individual analysis steps: 

The program for lexical analysis checks all Ada programs for 
lexical correctness. The syntactic analysis works with a 
grammar which represents a large portion of the Ada 
definition. It can check almost all programs used in normal 
work for syntactic correctness. 

Ada is a very young language which has been changed in parts 
many times over the last years. So far, complete versions of 
Ada are only available for mainframe computers, and as far 
as I know, only test versions are available. This is 
attributable to the complexity of the language. With this 
background it is quite nice to be able to check many 
programs for syntactic correct..ess. During the development 
of the syntax checker I have checked a variety of programs 
from Ada books for syntactic correctness and with many 
programs, which probably could not have been tested before, 
discovered discrepancies. 

There are stringent limitations on the subsequent semantic 
check and the creation of the assembly language programs. 
This is first of all due to the fact that the syntactic 
checking of Ada programs is very time-consuming, and second 
because of the structure of the compiler itself. Since all 
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of the compiler programs cannot fit into memory at the same 
time, the programs run in sequence. This means that 
information required by programs following one another must 
be saved on disk. Each program works only with the 
information of the previous program. Memory can be saved 
this way but in order to create a piece of an assembly 
language program, all of the necessary information must be 
present. But because memory space must be saved, of the 
excellent capabilities of Ada, only those which can be made 
to work under these limitations are included. 

I hope that I have attained my goal of offering you an 
elegant option for creating short, fast assembly language 
programs. 

In addition it is possible to combine several programs with 
each other and to address Ada programs from BASIC. 
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4. Writing our first Ada program 

After you have loaded the editor and started it, select the 
aenu WRITE/EDIT and enter the following program (the 
underline character as in ADA_1 is obtained by pressing 

the Commodore key and the P key at the sane time.)! 

00010 procedure ADA_1 is 
00020 — 

00030 — The data objects that our program 

00040 — uses will be declared here. 

00050 — 

00060 begin 
00070 — 

00080 — The executable statements 

00090 — of our program appear here. 

w 00100 — 

00110 null ; 

00120 — 

00130 end ADA_1 ; 

This is the smallest possible Ada program (without the 
comments). It has the name ”ADA_1". The name appears at the 
start of the program and at the end. It is not absolutely 
necessary at the end, but when it appears it must be the 
same name as at the beginning. A discrepancy will be seen as 
an error by the compiler. It is a good idea to include the 
name at the end of the program as well as at the beginning 
so that you always know the program is at an end. This is 
not necessary for small programs, but we want to learn how 
w. - to write large programs clearly and use the capabilties 
which Ada offers. 
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The program begins at the keyword "procedure". Keywords are 
words which have a predetermined meaning in Ada. Keywords 
are part of the language. The keyword "procedure" means that 
a program to be executed begins at this spot. 

After "procedure" comes the name of the program, which we 
may choose freely. The name chosen may not be an Ada keyword 
because keywords are predetermined and therefore protected. 
Names of data objects may and should be longer than the 
maximum of two letters to which we are accustomed to in 
BASIC. Therefore it is possible to give sensible and 
suggestive names to data objects. This increases the 
readability of a program. Names (also called identifiers) 
can be a maximum of 250 characters long. In practice, you 
will probably not reach this limit, but it is given for the 
sake of completeness. Identifiers must begin with a letter 
and may contain letters, digits and the character . This 
is the underline character (Commodore P) used to separate 
words in the identifier, making it easier to read. 

The computer does not distinguish between upper and lower 
case, "procedure" or "PROCEDURE" or "PROCedure" all have the 
same meaning as far as the compiler is concerned. To easily 
distinguish Ada keywords we will write the keywords in 
boldfaced lower case. 

A separating character must be between keywords and 
identifiers. A space is a separator; we will learn others 
later. 

Comments in Ada are denoted by two consecutive minus signs 
(--, hyphens, dashes). Comments make use of the entire line. 
Ada instructions can not follow a comment in a line. 
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Exe nplea of valid and invalid consents: 

— This is a valid consent 
-- Connents can extend over several 
— lines, or nay be enpty 


- - This is not a valid comment! 

No spaces nay be between the sinus signs. 

Back to our example: After the nane of our program follows 
the keyword is. We will later put the data objects 
(variables, constants, ...) which our program will use 
between this word and the keyword begin. 

After begin follows the part of the program which contains 
the executable instructions. These are instructions which 
tell the computer to perform a specific action. The 
instruction I have chosen here is the instruction null. This 
instruction serves as a place holder in Ada. We will use it 
wherever an Ada instruction must be, but we do not yet know 
which instruction we will chose, or when the computer should 
execute the null instruction. 

Ada instructions are ended with a semicolon. 

The program ends with the keyword end. The name of the 
program follows, terminated by a semicolon. 

You probably never thought that one could say so much about 
a program which doesn’t do anything. 
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If you wish, you can compile this program. It will create a 
machine language program which contains no instructions, but 
it will allow you to test the operation of the compiler. 
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5. Text output 


In this section we will learn how to output text and receive 
our first exposure to the compiler. 

One property of Ada is that the possibility exists to break 
complex problems down into smaller ones. One writes a 
program which we call in ADA a package for each smaller 
program and then assembles the total solution out of these 
partial ones. The advantages of this are clear: We write a 
program for a specific problem, test it out, and save it. 
For the moment all that interests us is what data must be 
passed to the program in order to get certain information 
back. The commands the computer executes to do this are 
unimportant for us. Furthermore, we need no longer give any 
consideration to this partial solution; we only use it. 
Several persons can work on one large program without one 
being dependent on any other. The programmers simply agree 
on the functions of the program parts and the manner in 
which they are accessed and then they start programming 
independently. 

The program which is responsible for the input and output of 
data is also such a package. It is agreed upon in the 
language as a so-called "standard package," which means that 
it is part of the equipment of the compiler. This package 
must be rewritten for each computer, so that the same 
commands perform the same operations in each implementation 
of the language. The agreed-upon scope of this package is 
too large for the CBM 64. I have included the capabilities 
for you which were most important to me, without making this 
package consume the entire memory of the computer. 
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Don’t worry—you will find everything you need for writing 
useful programs. 

If we want to use the input/output package, we must inform 
the compiler of this. This is done with the commands: 

with TEXT_IO; use TEXT_IO; 

The package for text input/output is called "TEXT_IO". These 
commands must be at the start of the program. The with 
command must appear before the keyword procedure. The use 
command can also appear at other places. 

Let us begin with text output. 

The predetermined receiver of output is the screen. If we 
want the sentence "Hello, this works quite well!" on the 
screen, we must write the following program: 

00010 with TEXT_I0; use TEXT_I0; 

00020 — 

00030 procedure 0UTPUT_1 is 
00040 — 

00050 begin 
00060 -- 

00070 PUT ( "Hello, this works quite well!" ); 

00080 — 

00090 end 0UTPUT_1; 

The command which we use to output strings (text) is called 
PUT. PUT is not a keyword, but it has a specified meaning 
in connection with the previous with and use commands. This 
command will be the same in all implementations of Ada. 
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We place the output text in parentheses and enclose the 
actual string in quotation marks. This is called a "string 
literal" in Ada. There also "character literals" in Ada. 
These are individual characters and are enclosed in 
apostrophes in Ada. For example, ’A’ or ’h’ or are 
character literals. 


The output of characters is done in the same manner as the 
output of string literals. 

PUT ( ’b’ ) ; 

The PUT command outputs the character or string at the 
current position of the cursor. At the end of the command 
the cursor is placed at the next output position. 


If you want to output a character or string literal and set 
the cursor at the start of the next line, use the following 
command: 


PUT_LINE ( "." ); 

or PUT_LINE ( *.’ ); 

The periods stand for a character or string literal. To 
place the cursor one line lower, end the output on the 
current line with this command: 

NEW_LINE ; 

To skip lines or to print blank lines, use the command in 
following form: The number must a natural number (integer 

greater than zero). (NUMBER-1) lines will then be printed. 
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Example: 


NEW_LINE ( 4 ) ; 

This ends the output on the current line and prints three 
blank lines. 

In order to position a cursor within a line, use this 
command: 


SETCOL ( column ); 

The cursor is placed at the column specified in place of the 
word "column". Example: We want to place the cursor at 
column 35. 


SET_COL ( 35 ) ; 

The output can be sent to the printer instead of the screen 
with this command: 

SETOUTPUT ( printer ) ; 

Now all output will be sent to the printer. Output can be 
redirected to the screen with: 

SETOUTPUT ( screen ) ; 

Make sure that you do not direct the output to the same 
device twice in a row. The compiler can first recognize this 
error at execution time, after it has compiled the entire 
program, at the time you have started the machine language 
program. 
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Exercise: 

We now have learned enough in order to write a small Ada 
program. Solve the following task, one possible solution can 
be found in the "Solutions" section. The solution has the 
name "OUTPUT 2". The given solution does not mean that our 
problem can only be solved in this manner or that it is 
necessarily the best solution. It means only that it is the 
solution which I have worked out for you. Write a program 
which outputs the following sentences in the given form: 

1. Output the string literal "This is our first task." 

2. Move to the next output line. 

3. Output the string "This string starts in the second line 
and extends into line number " 

4. Output the character ’3’ directly behind the previous 
string. 

5. Output 5 blank lines. 

6. Output the line "Now everything goes to the printer." 

7. Direct the following output to the printer. 

8. Output "Is the printer working?" 

9. Switch the output back to the screen. 

10. Output the character ’E’ in column 35. 
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6. Screen control 


''m*' The following capabilities are not part of the Ada standard 
but our computer places them at our disposal, so it seems a 
shame not to use them. 

These capabilities are very interesting because a compiled 
program executes these functions very quickly. They are so 
fast in part because neither the video interface chip (the 
device responsible for the screen output) nor your 
television, to say nothing of your eyes, can follow an 
output stream which consists only of these functions. 
Programs with these functions are executed with maximum 
speed, very quickly indeed in comparison with BASIC. 

Our Ada program uses the CBM-64 operating system routines 
for these functions. I have written a package for the CBM-64 
called CBM_64 so that you can use these functions. Please 
include this package at the start of all your programs in 
the future. 


with CBM_64 ; use CBM_64; 

The following functions are available for screen control: 

SET_ROW ( line ); 

This command is related to the command SETCOL. The command 
SBT_ROW is not included in the Ada standard, however. 
SET_ROW sets the cursor to the given line. You can choose a 
^ line number between 1 and 24. 
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Example: Set the cursor to line 15. 

SET_ROW ( 15 ); 

We can clear the screen with the command: 

SCREEN_CLR ; 

We set the cursor in the upper left-hand corner of the 
screen with: 


CURSORHOME ; 

The following commands allow us to change the color of the 
screen border, background, and characters. For the sake of 
simplicity I will enumerate all of the possibilities. 


Note the way each color is designated, otherwise the 
compiler will respond with "Unrecognized color". 

Selecting the type (character) color: 


SET_TYPE ( 
SET TYPE ( 

settype ( 

SETTYPE ( 

set _type ( 

SETTYPE ( 
SETTYPE ( 
SETTYPE ( 


black ); 
white ) ; 
red ) ; 
green ); 
blue ) ; 
purple ); 
yellow ); 
cyan ); 
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Selecting the border color: 


SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 
SET_BORDER ( 


black ); 
white ); 
cyan ); 
red ); 
purple ); 
green ); 
blue ) ; 
yellow ); 
orange ); 
brown ); 
light_red ); 
greyl ); 
grey_2 ); 
light_green ); 
lightblue ); 
grey_3 ); 
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Selecting the background color: 


SET_BKGND 

( 

black ); 

SET_BKGND 

( 

white ); 

SET_BKGND 

( 

cyan ); 

SETBKGND 

( 

red ) ; 

SET_BKGND 

( 

purple ); 

SET_BKGND 

( 

green ); 

SET_BKGND 

( 

blue ); 

SET_BKGND 

( 

yellow ); 

SET_BKGND 

( 

orange ); 

SET_BKGND 

( 

brown ); 

SET„BKGND 

( 

light_red ); 

SET_BKGND 

( 

grey_l ); 

SET_BKGND 

( 

grey_2 ); 

SET_BKGND 

( 

1ight_green 

SET_BKGND 

( 

light_blue ) 

SET_BKGND 

( 

grey_3 ); 
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Exercise: 

Write a program which does the following: 

1. Clears the screen. 

2. Set the border color to "grey_2" 

3. Set the background color to "white" 

4. Set the cursor in line 10, column 20. 

5. Output "L 10, C 20" in black type. 

6. Set the cursor in the upper left-hand corner of the 
screen. 

The solution for this task can be found under the name 
"screen control." 

Try this out and see how fast your CBM-64 can be. You will 
be surprised. 
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7. Data objects 

By data objects we mean objects in our program to which we 
can assign values. We distinguish between constants and 
variables. 

Data objects are assigned a specific type. They then assume 
the characteristics of that type. 

8.1 Types: 

We will be working with three different data types in our 
Ada training course: 

Type : INTEGER 

This data type represents all whole numbers in the range 
-32768 to +32767. 

Type : FLOAT 

This data type represents all floating-point numbers in the 
range +/-1.701411183E+38 and +/-2.93873588E-39. 

Type : STRING 

Objects of this type can be assigned strings of characters 
up to 80 characters long. 
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Constants: 

Constants are objects which assume a value at their 
declaration. This value cannot be changed during the course 
of the program. The compiler checks for this and refuses a 
value assignment. 

Constants of any of the previously named types can be 
declared. 

Examples: 

Constants of type INTEGER: 

INTEGER_1 : constant INTEGER : = 15; 

START_QUANTITY_CARS : constant INTEGER := 3576; 

ACCELERATION_FACTOR : constant INTEGER := -15; 

The declaration is constructed as follows: 

At the beginning of the line stands the name or identifier 
of the data object. Then follows the colon and the keyword 
constant. Next comes the type identifier and, preceded by a 
colon and equals sign, the value our constant is to have. 

With the declaration of any data object it is possible to 
define several objects at once. 

Example: 

OBJECT_1, 0BJECT2, 0BJECT_3 : constant INTEGER := -1000; 

The data objects are separated from each other by a comma. 
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Constants of type FLOAT: 

FLOAT_123 
PI 

SHERRY, LIQUEUR, WHISKEY 
Constants of type string 

STR 

ADDRESS 

SNTNCE_START, SNTNCE_END 

For constants of type st 
by the constant depends < 

When we declare data objects which will have only one value 
throughout the program and are never to be reassigned, we 
declare these as constants. 

If we want to perform calculations and assign a value to a 
data object during the course of the program, we need 
variables. These objects can be defined and redefined during 
the execution of a program. They can also be assigned an 
initial value. If we are starting our program, the variables 
are assigned values. 

Variables of type INTEGER: 


SUSAN 

: INTEGER 

= 22; 

PETER_MEIER 

: INTEGER 

= 18; 

SAM, JOE, ANN 

: INTEGER 

= 172 


ADA Training Course 


constant FLOAT 
constant FLOAT 
constant FLOAT 


constant STRING 
constant STRING 
constant STRING 

ing, the amount 
n its length. 


= -3.98E-22; 
= 3.1415; 

= 35; 


:= "pearl"; 

:= "Grand Rapids"; 
:= "Hi there!"; 

of memory taken up 
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Variables of type FLOAT: 

PRICE 

SUM 

PROJ, EXIST, MOVE 

Variables of type string 
FIRST_NAME_1 

FIRST_NAMB_2, FIRSTNAME 
LAST_NAME 

Now we know how data obj 


: FLOAT ; 

: FLOAT := 2E+10; 
: FLOAT := 0; 


: STRING:= "Mike"; 

3 : STRING:= "Harold"; 
: string; 

cts are declared. 


The types which you have become acquainted with are 
predefined in Ada. They belong to the language standard. An 
Ada compiler for larger computers would have additional data 
types available. Also missing in this training course is the 
ability to form user-defined types from those already 
existing. Due to memory limitations these were not 
implmented in the Ada Training Course compiler, but you may 
run the lexical analysis and syntactical analysis on 
programs using the entire ADA language. You will not be 
able to run the semantic analysis or compile these programs 
on the CBM-64. 
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Exercise 

Write the declaration portion of a program to work with the 
following data objects: 

1. A whole number constant with the name WHOLE and the 
value -1. 

2. A floating-point number with the name FLOATP and the 
value 0.3E-6. 

3. A string constant with the name STH and the value "Hi 
there!” 

4. An integer variable with the name INT_VAR. 

5. Two floating-point variables with the names PRICECHEESE 

and PRICESAUSAGE and the initial values 0 and 0. 

6. A string variable with the name HOUSENAME and your last 
name as the initial value. 

The model solution has the name "DECLARATIONS". 
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8. Data input and output 


The input and output of data is handled by the computer- 
dependent package CBM_64. Don’t forget to specify this 
package before the declaration portion. 

We use the following command to read data objects from the 
keyboard: 


GET ( data object ); 

You replace the words "data object" with the name of a 
variable to which you want to assign a new value. The 
program then stops at the point in the program where this 
command is found and requests input from the keyboard with a 
question nark (?). Be sure that you enter a value of the 
appropriate type. 

In order to display the values of data objects on the 
screen, use the following command: 

PUT ( data object ); 

You are already familiar with the PUT command from text 
output. 

It is good style to make inputs immediately visible with an 
output (echo the input) in order to provide a check. Also, 
do not forget to comment your programs so that you can 
understand them later. Take a look at the following example: 
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Example: 


00010 with TEXT_I0; use TEXT_I0; 

00020 with CBM_64; use CBM_64; 

00030 — 

00040 — Example for the input and output of data. 
00050 — The name and year or birth of the user 
00060 — will be entered and printed. 

00070 -- 

00080 procedure DATAINDATAOUT is 
00090 -- 

00100 -- Declaration of the string variable for 
00110 -- the name of the user. 

00120 — 

00130 NAME : STRING; 

00140 — 

00150 — Declaration of the integer variables for 
00160 -- the birth year of the user. 

00170 — 

00180 „ BIRTHYEAR : INTEGER; 

00190 -- 
00200 begin 
00210 -- 

00220 SCREEN_CLR; 

00230 -- 

00240 SET_C0L (5); 

00250 -- 

00260 PUT ( " Please enter your name:”); 

00270 — 

00280 SET_R0W (8); SET_C0L (4); 

00290 — 

00300 GET ( NAME ); 

00310 -- 
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00320 NEW_LINE; PUT ( " Your name is ); 

00330 PUT ( NAME ); 

00340 — 

00350 NEW_LINE (3); 

00360 PUT ( " Please enter the year or your birth:"); 

00370 — 

00380 NEW_LINE; SET_C0L (4); get ( BIRTH_YEAR ); 

00390 NEW_LINE (2); 

00400 PUTLINE ( " You were born in the year :" ); 
00410 PUT ( BIRTHYEAR ); 

00420 — 

00430 end DATA_IN_DATA_OUT ; 


As you have noticed, more than one instruction may be 
placed on a line in Ada. The semicolon separates the 
instructions from each other. You should make sure that the 
program does not become too cluttered. In some cases it is 
even advisable to place instructions which belong together 
on a single line. 


Exercise 

The solution has the program name "output 2”. 

Write a program which asks for your body weight and then 
outputs this again. 
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9. Value assignment 


Ada is a strongly-typed language, which means that a data 
object of a certain type may only be assigned values which 
are compatible with that type. A variable of type integer 
may not be assigned a floating-point value because the 
floating point value would first have to be converted to an 
integer before the assignment. The individual types are 
logically distinguished. Not only variables but also 
operations such as addition, multiplication, etc. are 
logically distinguished by type. 

Nevertheless, it is often necessary to assign the value of 
an integer variable to a floating-point variable, for 
example. The value of the integer variable must first be 
converted to a floating-point value. You can convert the 
values of integer variables to floating-point variables and 
vice versa. How this is done will be explained later. 

First we want to see what a value assignment in Ada looks 
like. 

Examples: 


SAM := TOM + 2; 

We assume that both SAM and TOM are data objects of the 
same type. If this were not the case, the compiler would 
tell us so. On the left side of the value assignment stands 
the data object whose value will be changed. Then follows a 
colon and the equals sign. This character combination can be 
read as "receives the value of." The ":=" tells the 
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compiler that this instruction is an assignment. On the 
right side is an arithmetic expression. At the end follows 
the semicolon which signals the end of the instruction. In 
our example the data object SAM is assigned the value of the 
data object TOM, plus 2. 

Exponents in Ada are designated by the string 

Conversion: 

Floating-point values can be converted to integer values 
with the following construction: 

INTEGER ( floating-point value ) 

The value of the data object used in place of "floating¬ 
point value" is converted to type integer. 

The opposite conversion of an integer value to a floating¬ 
point value is accomplished with: 

FLOAT ( integer value ) 


Example: 

ERIKA is a data object of type integer and JOHN is a data 
object of type FLOAT. ERIKA is to be assigned the value of 
JOHN, therefore JOHN must be converted to an integer: 

ERIKA := INTEGER ( JOHN ); 

This covers the value assignment of types float and integer, 
but what about the value assignments of type string? 
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Value assignment with data type string: 

Here things are done a bit differently than usual. Data 
objects of type string have a length of 80 characters. The 
compiler reserves this space in memory. It can therefore 
access the individual strings very quickly because it does 
not have to search for memory. 

We can represent every string variable in the following 
form: NAME ( 1..80 ). This means that we can access the 
places 1 through 80 for this variable. If, for example, we 
want to fill positions 1 to 10 with a certain string, we do 
it as follows: 


PETER ( 1..10 ) := "abcdefghij"; 

At the start of the program execution, all string variables 
are filled with binary nulls so that they are considered to 
be empty. If you want to return a string to its initial 
condition, enter the following command: 

PETER ( 1..80 ) := ; 

The following procedure is used to assign string variables 
with the values of other string variables: 

PETER ( 5..15 ) := EDWARD ( 3..13 ); 

Here the string variable PETER at position 5 is assigned the 
value of the string variable EDWARD at position 3. Eleven 
characters are copied. 
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If the receiving string is shorter than the sender, the 
copied string will be truncated. If the receiving string is 
longer than that sent, the string copied is padded with 
blanks. 


Exercise 

The solution has the name "VALUE ASSIGNMENT". 

Write a program which perform the following task: 

A merchant sells diskettes and wants a program that will 
write a bill giving him the total of the purchase, including 
sales tax. The name of the customer must also be on the bill 
in order to keep the finances straight. Below is a sample 
bill. Try to use everything you learned in this section. 

Sample bill: 


Sam Harris 


bought on 10/05/84 


10 diskettes at a price of 


$ 29.95 


4 % sales tax 
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10. Functions: 


A number of numeric functions which support the operating 
system have been implemented in the CBM 64 package. 

The operand, the variable or constant, used for these 
functions can be of type float or integer. The syntactic 
form is the same for all of the functions. Simply replace 
"function name" with the actual name of the function. 

Command construction: 

VAHIABIiK_l := function name (VARIABLB2 ); 


Examples: 


SQUAHEHOOT := SQR ( TOM ); 
SQUAREROOT := SQR ( 4 ); 


The functions: 


Function: ABS 

The absolute value of the argument (operand) is calculated. 
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Function: ATN 

The arctangent of the operand is calculated. The operand is 
given in radians. 


Function: COS 

Returns the cosine of the value given in radians. 


Function: EXP 

Returns the value e ** operand in which e = 2.71827183. 


Function: INT 

The "INT" of a value returns its integer portion (greatest 
integer function). For example, INT ( 2.34 ) is 2, while INT 
( -4.6 ) is 5. 


Function: LOG 

"LOG" returns the natural logarithm (base e). 


Function: PEEK 

Returns the contents of the given memory location. 
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Function: RND 

"RND" returns a random number depending on the value of the 
argument. If the argument is negative, a new set of random 
numbers is produced. This set is dependent on the negative 
number, so the same negative value produces the same set of 
numbers. If the value is greater than or equal to zero, a 
new number will be generated. 


Function: SGN 


Returns the following 
-1 if the argument is 
0 if the argument is 
+1 if the argument is 


values: 

less than zero, 
equal to zero, 
greater than zero. 


Function: SIN 

Returns the sine of the angle given in radians. 


Function: SQR 

The square root of the value is calculated. The argument 
must be positive. 


Function: TAN 

The tangent of the angle given in radians is the result. 
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11. Decision Making 


Ada is a block-structured language. Instructions which 
logically belong together are collected together into a 
block. For example, we write the keyword at the beginning of 
the executable instructions and the word end at the end of 
the program. The instructions in between belong to a 
program, they form a block. 

Up to now we have only concerned ourselves with programs 
which are executed sequentially, meaning that we do not know 
how to make a program execute its instructions in an order 
other than one pass through all of them, one after the 
other. In our previous programs, each instruction was 
executed exactly once. We could not skip any instructions. 

One often faces the problem of having to choose between two 
sets of instructions based on a condition. In English we 
would formulate this as follows: "If the condition is 
fulfilled, then execute these instructions, else execute 
this other set." Two different instruction blocks exist 
which make up the structure of this program portion. One 
speaks of structured programming if such structures 
determine the program. An additional method of structuring 
programs involves loops, which we will discuss in the next 
section. 
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What does a condition in Ada look like? 

Example: 

if HAL > 0 then 

-- A set of instructions 
-- can be placed here. 

— It will be referred to as blockl. 

else 

— Instructions for block_2 can be 
-- placed here. 

end if; 

We can clearly recognize two blocks. At least one statement 
must be placed in each block, even if it is just the empty 
instruction null. 

The decision statement begins with the keyword if. Then 
follows the condition which determines the branch to the 
individual blocks. If the condition is fulfilled, in our 
case if the value of HAL is greater than 0, the first block 
is executed. The first block is comprised of statements from 
the if statement to the else statement. Here the program 
execution branches to the instruction following the end of 
the decision end if;. 

If the condition was not fulfilled, the instructions in 
block 2 are executed. 
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If no instructions are necessary for block_2, we can place 
the instruction null; there. Another possibility is to leave 
off this block altogether. 

if HAL >0 then 

— instruction block 

end if ; 

Do not forget the semicolon after the end if because the 
conditional is also a statement in Ada and must be separated 
from following statements by the semicolon. 

The following operators are available for forming the 
condition: 


Operator 

Meaning 

= 

equal to 

/= 

not equal to 

< 

strictly less than 

< = 

less than or equal to 

> 

strictly greater than 

> = 

greater than or equal to 


Exercise 

Ask the user if the sentence "Block structures are great!" 
should be sent to the screen or printer and then do so. The 
solution has the name "DECISIONS”. 
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13. LOOPS 

The loop structure is used to execute a block of 
instructions more than once without having to retype the 
block. Let’s look first at the endless loop. 

loop 

— A sequence of instructions 

end loop; 

In Ada one calls this construction the "basic loop." This 
is the simplest form of a loop, but also the one you will 

need the least. Once you are in this loop you can carry out 

the sequence of given instructions as long as you want until 

the computer is turned off. Your computer makes use of such 

a loop when it is turned on. It waits for a command from you 
and returns again to the loop when it has carried out the 
command. This interpretation loop is the principal 
structure in the computer and all other structures are 
subordinate to it. This loop reads the keyboard, it will 
not do you any good to escape from this loop. 
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It is possible to escape from an endless loop in Ada with 
the following command: 

exit loopname when condition; 

This instruction means exit the loop with the name 
"loopname" when the condition is fulfilled. This condition 
is similar to a BASIC IF statement. How do we give a name 
to a loop? 

Example: 

ROUND: loop 


-- A sequence of instructions 

exit ROUND when A /= B ; 

— A Not Equal To B "A /= B” 
-- A sequence of instructions 


end loop ROUND; 
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You must write the name of the loop in at least two places: 
before the keyword loop, followed by a colon, and after the 
keywords end and loop, followed by a semicolon. In our 
example the loop "ROUND" will be exited if the value of A is 
different from the value of B, then the exit statement is 
executed. The program execution will pick up again after the 
instruction "end loop ROUND;". 

Take a look at the following example: 


OUTSIDE : loop 

— A sequence of instructions 
INSIDE : loop 

— A sequence of instructions 

exit OUTSIDE when MM < 3; 


— A sequence of instructions 
end loop INSIDE ; 


end loop OUTSIDE; 

Both loops can be exited by proper selection of the exit 
criteria in the inner loop. 
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If you want to run through a loop only a few times, Ada 
offers the following possibility: 

Example: 


for I in 1..10 loop 


-- the sequence of instructions which is to 

— be executed ten times. 


end loop ; 

The loop parameter, in our case "I", can only be read within 
the loop. Upon entry into the loop the parameters will be 
defined, and will cease to exist after the completion of the 
loop. In our case the loop parameter assumes the values, 
one after another: 1,2,3,4,5,6,7,8,9,10. The loop will be 
carried out ten times. 
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EXBHCIS8 

You will find the suggested solution under the name " 
on the Ada Training Course diskette and in section 
Problem Solutions. 

Write a program that prints all the even numbers 
100, and then all the odd numbers from 100 to 200. 
output should be commented. 


loop" 

27. 


up to 
The 
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13. Juaps 


Have you already missed the goto command? I believe that 
this command is unnecessary, because in principle all the 
problems can be solved with sequential procedures, 
conditionals, and loops. But there is also a "goto" command 
in Ada. You must indicate the place in the program to which 
you would like to jump. There are no line numbers in Ada 
like there are in Basic. The provision for such jump 
destination markers is as follows: 

<< JUMP LABEL >> 

In place of JUMP LABEL insert a name of your own. A jump 
label can be inserted before any instruction in the 
executable part of your program. The goto instruction has 
the following construction: 

goto JUMP LABEL; 

I probably don’t need to put an exercise here for you, an 
example of the goto command may be found in the program 
named DEMO on the Ada diskette. DEMO.OBJ is the compiled 
and assembled version of the DEMO program, you may simple 
load and run this program. 


63 



Abacus Software 


ADA Training Course 


{This page left blank intentionally} 


64 



Abacus Software 


ADA Training Course 


14. The Operation of the Compiler 

A section not just for experts 


Surely you have asked yourself what actually happens after 
you have told the editor to compile a program. I will answer 
this on the next pages. For me this is one of the most 
interesting parts of data processing. I find it simply 
fascinating to discover the means by which a machine is in 
a position to analyze a language. 

A few things to consider: If you want to express something 
in a language, you put the words together in sentences. You 
do this whether you are speaking English or writing a 
program in Ada. By words in Ada we mean keywords, special 
characters, and names. The programs which you pass on to 
the Ada compiler are nothing other than Ada sentences. 

Ada is an artificially created language, but nevertheless it 
is a language which is in the position to form an endless 
number of sentences. If you want to take only a certain 
length for your programs, then you can set a maximum length 
of 5000 sentences. I am convinced that the Ada compiler 
in this Ada training courses can never come in contact 
with all the possible programs of this length. 

Even more surprising is the fact that it is possible to 
write a program (the Ada compiler) that can analyze and 
compile all these sentences. You will perhaps say that 
this cannot be that difficult, because our language is based 
on clear cut, definite rules. We need only to write a 
program that knows these rules and analyzes our sentences 
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following these rules. Easier said than done! Do 
all the rules in your head? Or do you often have 
these things up, as I do? Have you developed 
methods which you follow when you check whether the 
is in keeping with the rules? 


you have 
to look 
certain 
program 


Now, according to which methods does the compiler of 
programming languages proceed? You will get to know the 
methods which the Ada-compiler proceeds. Programming 
languages are compiled using these methods, so don’t 
quickly forget what I tell you but keep it in the back of 
your mind, for it will clarify many messages the computer is 
giving you. 


Perhaps you ask why I write about program analysis when all 
we want is to compile the programs. You will see that the 
information we need in order to compile a program will be 
obtained by program analysis. It is noteworthy that the 
computer requires more time for the analysis of your program 
than for the production of the workable machine language 
program. 

The program analysis can be divided into three major parts 
which are executed one after the other on the CBM-64. If 
more memory were available these parts could be executed in 
parallel to each other without having to save the data on 
the diskette. Saving the data naturally takes time, and 
you can cut down on this time in larger computer systems by 
the parallel execution of the three parts. 
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The three partB of the analysis are: 

1) The lexical analysis 

2) The syntactical analysis 

3) The semantic analysis 

The subjects of parts 1-3 can be roughly summarized as 
follows: 

The lexical analysis should recognize particular words of 
the program and filter out the words which don’t make sense 
in Ada. 

The syntactical analysis should examine whether a program 
follows the grammatical rules of Ada. We will later learn 
what this grammar is like. 

The semantic analysis checks whether your program basically 
makes sense and whether you’ve followed the rules which in 
the previous examinations had not been detected. 

As you’ve already recognized, the Ada program goes through 
ever closer examinations. If the compiler recognizes 
mistakes in syntax, then a semantic examination is no longer 
necessary. We’ll overlook these points in particular until 
they’re understandable. 
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IS. The Lexical Analysis 

A program which executes a lexical check is called a 
"scanner". The strongest ally with the lexical examination 
in our case is the editor. The scanner’s job is to take only 
the characters which result in a sensible Ada-program. 

We call upon the scanner when we use the function "Compile 
the program" from the editor. The scanner is part of the 
editing program and is already located in the memory of the 
computer. 

The task of the scanner is to put our program into a 
"standard form” which can be processed by the succeeding 
program, which executes the syntactical test. To do that 
the scanner takes all of the comments out of our program 
because they are only for our benefit and are not needed by 
the compiler. If spaces appear in the program they are 
removed. This does not apply to spaces in character 
strings. The scanner prints out the line numbers of the 
program and changes all the uppercase letters into 
lowercase. Its main task however is to break the program 
into Ada words. 

What are then all of the Ada words? 

1) Ada keywords, i.e. loop, procedure, etc. 

2) The identifiers of the programs 



The separators, 


i.e. =, >, etc. 
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How does the scanner go about this? It reads the program 
character by character until it encounters one of the 
following cases: 

(a) A comment follows (--) 

(b) A space follows 

(c) A separator follows 

(d) The end of the line is reached 

When it reaches one of these it knows that the sequence of 
characters read was an Ada word. 

An example: 

The program shall be: 

00010 procedure LEX EXAMPLE is 

00020 — Example 1 for lexical analysis 

00030 A,B : INTEGER ; 

00040 begin 

00050 A := B; 

00060 end LEXEXAMPLE ; 

Line 00010: 

The line number 00010 will be printed. The scanner 
reads over the spaces after the line number, then 
reads procedure and recognizes the space following 
it. It enters case (b). The scanner knows that 
procedure is an Ada word. It does one more thing 
though: it determines whether it is a keyword or 

whether it is dealing with a word selected by the 
user. When procedure is a keyword, a coded message 
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will be generated. This message has the following 
contents: Here comes a keyword. The keyword is 
procedure. This message is in reality only two 
characters long and can be interpreted by the 
following analysis program. We can recognize the 
meaning of this action when we talk about the 
syntactical analysis. 

The spaces after procedure will not be printed. 
The scanner then reads "LEX_EXAMPLE", recognizes 
the space, notices that the word is not a keyword 
and outputs in lowercase letters "lex_example". 

With the keyword ia case (d) occurs, the end of the 
line is reached. The scanner prints a 
corresponding message as for procedure and moves to 
the next line. 

Line 00020: 

The line number 00020 will be printed. Then a 
comment follows, recognizable by the two minus 
signs (—), and the rest of the line will be 
skipped over. 

Line 00030: 

The line number 00030 will be printed. The 
following spaces will overlooked. Since a comma, 
also a separator, follows "A," a word ends here. 
The scanner recognizes it as one chosen by the user 
and prints "a". And so on... 
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Lines 00040 - 00060: 

Nothing more will be said about these lines since 
we have already covered all of the cases. But you 
should "scan" over these lines for practice. 

Upon completion the scanner prints the message that 
program is finished and instructs you to insert 
distribution disk. 


the 

the 
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16. The Syntactical Analysis 


The program that is responsible for the syntactical analysis 
is called the Parser. 

The Ada-Parser is the parser called by the scanner after its 
work has been carried out. The parser reads the output of 
the scanner and checks the program for syntactical accuracy. 

First we will clarify what is meant when a program is 
syntactically correct. Every language is based on certain 
rules, which determine how sentences are formed out of 
words. A collection of Buch rules is called grammar. Most 
of our recollections of grammar come from school, but have 
no fear because in programming languages the grammar is much 
easier to understand than that for other languages like 
English. The reason for this is that with natural languages 
we must infer the rules from the language. One examines for 
example a thousand English sentences and tries to understand 
the construction of these sentences in terms of rules. If 
you add to the thousand sentences you will probably have to 
add new and different rules as well. We can never be sure 
that we have found all the rules. Of course there are 
always exceptions to the rules. 

This method is not possible for programming languages 
because the people who write the compiler don’t know which 
programs the user will devise later. The opposite course can 
also be taken. We first define what the programming 
language should do and then the grammar is developed. 
Sentences using correct grammar are syntactically correct, 
all others will not be accepted by the parser. 
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In reality the way of proceeding is somewhat more 
complicated. One would think that once the grammar has been 
worked out that the parser should be able to work with this 
grammar. Not all grammar can be processed by every parser, 
however. The grammar must either be adapted to the parser 
or the parser to the grammar. Unfortunately there are 
restrictions on the side of the computer because different 
parsers require varying amounts of memory space and 
compiling time. 

With the Ada Training Course compiler I have proceeded as 
follows: I have sought a method for the parser which 
requires as little memory as possible. Then I devised the 
parser and rewrote the Ada grammar so that it is more 
workable. This can be said in two sentences, but it 
required a great deal of time spent in working out the 
details since the inconsistency of the new grammar became 
noticeable only after a great deal of computation. 

How does the parser check a program for syntactical 
accuracy? There are many different methods for doing so. 
I’d like to present those that the Ada compiler uses. In 
the literature these methods are known as LL(1) - parsing. 

Before we can understand them a few considerations are 
necessary. So that these don’t become much too dry, let’s 
get acquainted with these methods by means of an example. 
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16.1 The 11(1) Pleasure Garden Part 1: 

We take a spacious garden which we will call the LL(1) 
Pleasure Garden. Within this garden there is an array of 
amusements such as carrousels, water games, old statues, 
etc. By every scene stands a mailbox with an inscription, 
designating the amusement. Further in the park is a whole 
set of paths and at their intersections, markers directing 
the way to the next attractions. We’ll imagine that our 
Sunday walk leads us into this pleasure garden. At the 
entrance we receive a package with cards which will mark out 
our walk through the garden. We turn up the top card and 
follow the signs. For example, card 1:" "monkeyhouse". We 
follow the signs which are at the entrance and show us the 
way. Arriving at the monkeyhouse we see a mailbox labeled 
"monkeyhouse” in which to put our card. After we’ve looked 
around we turn up the next card and follow the respective 
instructions. So we wander through the garden until we turn 
up the card with exit written on it, and the walk ends 
there. 

Back to the analysis of our program language: the deck of 
cards represents our program and on every card is a word of 
the program. The garden is the grammar according to which 
the program should be written, and the paths through the 
garden are the grammatical rules. In the section "19. Ada 
Grammar" you will find a complete list of applicable grammar 
with an index. 

We will move through one case and parser the following small 
program. 
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procedure A is 

begin 

null; 

end A; 

We imagine the keywords procedure, is, begin and end in 
coded form and imagine the empty spaces as not being there, 
this is the form of the program that the parser receives 
from the scanner. 

After the parser has been loaded and started, the parser 
program runs through an initialization phase. Here the 
parser prepares itself for its work. The first rules of the 
grammar will be read along with others which every program 
must fulfill. These rules characterize the entire "future" 
of our Ada programs. 

The rules read: compilation ::=compilation_l E_0_F . The 

name of the rule is "compilation". The name is the left 
part of the rule, the part which stands before the 
On the right side are two different types of words: One 

type is the name of other rules and the other consists of 
Ada words. 

This applies with three exceptions: 

1) The word EOF indicates the end of the 
program; the scanner adds this word to our program. 
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2) If there are rule alternatives they are 
separated fros one another by the character 
Alternatives mean that the rules are allowed to 
split up into more cases. This will soon become 
apparent on its own. 

3) If an alternative is empty ,it can be 
identified by an upper case "L”. An empty 
alternative in a rule means that the rule cannot be 
used. 

To "apply" a rule means to replace the name of the rule with 
the right side of the definition of that rule. The choice 
of a blank alternative means that the name is simply erased. 

The application of the rule "compilation" results in the 
following: First we must use the rule "compilation_l", 

followed by the word E_0_F. If the word "E_0_F" doesn’t 
appear then the parser will interpret it as an error. 

How then does the rule ”compilation_l" appear? It 
appears as: 

compilation_l ::= context_clause compilationunit 
compilation_l 
: L 

The use of "compilation_l" allows us two possibilities: 

1) The use of the first series, which begins with 
"contextclause"; 

2) The use of the second line, the empty rule. 
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We will consider case 2: we would be finished with the rule 
"compilation_l" and return to the rule "compilation". Now 
the word E_0_F follows which means that at the beginning of 
the program the information must have been given that the 
program is already at the end. We proceed through the 
grammar in this manner if we want to compile an Ada program, 
which does not consist of any instructions. The parser in 
this case follows the motto "He who does nothing also makes 
no mistakes". We are working with our program, however, so 
we must take case 1. 

Case 1 begins with "context_clause". Let’s look at this 
rule: 

contextclause "with" identifier with_l 

context_2 contextclause I L 

Line 1 begins with the word "with". To be able to choose 
this alternative we must have begun our program with "with". 

Now there remains only line 2 with the blank empty 
alternative. The rule ”context_clause" is thus processed. 
How does this appear in the "bookkeeping" of the parser? It 
has not yet noticed this still unprocessed rule and has 
marked the corresponding substitutions. For the program 
then it has: 

compilation ::= compilationunit compilation_l E_0_F 

Back to the rule "compilation 1": the next working 

rule is "compilation unit". 
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corapilationunit ::= "procedure" identifier forraal_part 

subprogranspe 


"package" package_ae 

Our program begins with "procedure", therefore we choose 
alternative 1. We have found an applicable rule and 
can view the first word in our program as processed. We 
move on to the next word. This is "a"". We work out 
further the rules of "compilation_unit". In the meantime we 
must notice the rest of the rules not yet worked out for 
compilition. There we must again take up the work when we 
are finished with the rule. You may think that this could 
go on forever, but it eventually does come to an end, 
although this may come after a few hundred steps for even a 
small program. That is much too much to execute by hand but 
the computer performs this work faithfully and diligently. 
In the section "17. Watching the parser do its work" you 
will find a complete record of our small program. You 
should go through this record once because it will clear up 
any questions you might still have. 


One quest 
into a new 
several al 
Which alt 
which cri 
every rul 
given alte 
words whi 
rule in th 
the same c 


ion I have not dealt with as of yet will lead us 
section: Suppose the parser comes to a rule with 

ternatives, none of which begin with an Ada word, 
ernative does the parser follow and according to 
teria does it proceed? For each alternative in 
e one can determine which words can occur if a 
rnative is selected and followed. I will list the 
ch are possible and are an alternative to the 
e following group of words because they fall under 
ategory and have similar characteristics. We know 
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that every time we need to find a word it is always the word 
that we last encountered. In the LL(1) pleasure garden 
this was always the card which we had uncovered and which 
gave us an intermediate destination on our way. The 
mailboxes in our garden are now replaced with the Ada words 
in our grammar. The guideposts in our garden are the family 
of words from which it is possible to select an alternative 
to the rule. 

I also owe you an answer to the question of why it is 
possible to analyze a program labeled with LL(1) Parsing. 
Here is the answer: We always direct our analysis of a 
sentence (program) from the furthest word on the left, which 
we haven’t found yet on our way through the grammar. This 
explains the two uppercase "L"s. With the "1” it is a 
different matter: In each case it sufficies to see only one 
word into the program. Therefore we insert the word 
procedure and look for this in the grammar, not needing at 
the moment any information about the words in our program 
which follow after procedure. At first if we have found 
procedure, we need the next word in order to find the rest 
of the way through the grammar. Perhaps you’ve already run 
across this case yourself. It is naturally just another set 
of analysis procedures for programming languages. You can 
read about the most current procedures for analysis in many 
pub 1ications. 

Until now we have just assumed that the programs which we 
analyze will be syntactically correct, but that isn’t just 
exactly what we wanted to find out. Let us return in this 
case to the model of our pleasure garden. 
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16.2 The LL(1) Pleasure Garden, Part 2 
We’ve gone astray! 

W' 

We run excitedly through the pleasure garden and come to a 
new attraction. After we’ve amused ourselves with it we 
look for the mailbox and throw in the card. We turn up the 
next card, look for the signs directing the way to our new 
goal, look in every direction, whirl around once more and 
despair! We can’t find any signs which show us the right 
direction in which to go. 

But what is wrong and how can we save ourselves? It could 
be that we lost a card, or there could be one too many 
cards, or someone could have mixed in a wrong card, or... 

What do we do? We assume that the mistake in the cards 
happened earlier and only just now showed up. Then we have 
to go back and at an earlier crossway look for our 
destination. If we assume a card is missing then we must go 
further and keep an eye out for the destination. If we 
decide that a wrong card has been slipped in then we simply 
take the next one and go on as usual. What would you do? 
Think it over once. I know you’ll find another way by which 
to continue your walk. Will we reach the end or must we 
resign ourselves to going back to the beginning? Think over 
what method you’re going to use and think about how this 
will be carried out by the computer. 

We will show how this takes place in the analysis of our 
program. The parser has a program which works through to a 
>■*'' certain place, finds a keyword of the grammar or works at a 
rule where it must move on to a new word. The parser 
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tackles a new rule in every case. This rule is determined 
by an antecedent, so it can choose only between the 
alternatives of this rule. It won’t find the new word in 
the group of grammar words, so it comes up with an error. We 
must now find another way to continue upon our walk. 

Which avenues does the parser have to pursue in continuing 
the analysis, and which is the most promising? If the parser 
wants to go back on its way through the grammar then it is 
important for it to have marked the way. We know that the 
analysis of a program can consist of many steps. That 
easily requires more memory area than we have available, so 
we can eliminate this possibility. The parser has noted the 
possible future for our program which limits this future 
step by step until only the end symbol is possible. The 
parser also has the option of determining which Ada 
words should be anticipated in the future. Another 
possibility for the parser would be to continue to read our 
program until this word has been found. What this means in 
our walk through the garden is that we turn over a new card 
until we come to a card for which we see a sign. We could 
have bad luck with that though and stand at the end with no 
cards. The parser in this case would read to the end and 
then stop working, which means that the rest of the program 
won’t be checked for syntactical accuracy. 

There are many possibilities which the Parser can make use 
of. I’d like to outline for you at the end of this 
chapter the one which appears most promising but which 
unfortunately cannot be realized on the C-64 because of the 
limited memory. Here now are the possibilities for the Ada 
Compiler which I feel present themselves in every case as 
very good options and can manage with little memory space. 
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Let us suppose that the way through our garden would be 
narked out so that a visible trail announced your presence, 
and that in our card deck were cards which were marked to be 
thrown into the mailboxes along the way. Then I hold the 
following way of proceeding to be the most sensible: We go 
along until the next intersection and turn up a number of 
cards until we reach the card that stands for that 
intersection. From that card it is very probable that we 
will be able to find the rest of the way to our goal. We 
relay this to the parser. First comes the question of "What 
are the crossroads/intersections in Ada?". You’ve noticed 
how every instruction in Ada is separated with a semicolon. 
Therefore what comes closer to a crossroad than a semicolon? 
So what is it to forget the semicolon when it only stands as 
a "tag" behind our instructions? We suppose then that the 
user begins a new instruction on a new line. We take a new 
line to be sort of a main intersection. This way of 
proceeding will not absolutely guarantee results, but it is 
reasonable and promises the greatest results with the 
smallest amount of memory allowable. 

It is important that we try to make the rest of our program 
accessible to a syntactical check. Interpreters, such as the 
CBM-64 has, make this task easy because it simply interrupts 
the program execution when an error shows up and prints the 
meaningless message "Syntax Error". The compiler must read 
over the entire program until it reaches the mistake which 
is a time consuming process with several errors. 

The Ada parser tries next to find the symbol which it has 
been looking for next. It looks only until the next 
semicolon or a new line. 
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Here then is the possibility which I belive to be most 
promising: If the the parser comes across a symbol which it 
didn’t expect, it looks up in the index whether the symbol 
has been changed in some way by the user, thereby limiting 
the future of our program. The index takes up a large place 
and doesn’t fit in the memory of the computer. 

We know at the end of the syntactical check whether our 
program compiles with the rules of Ada grammar. This test 
is a prerequisite for the semantic test, which also locates 
the last discrepancies. 

In English we know that the sentence "The ducks trills." is 
grammatically correct, but does it also make sense? 
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17. Watching the parser do its work 
We have selected the following small program as an example: 
00010 procedure A is 
00020 begin 
00030 null; 

00040 end A; 

It is obvious that no one would write such a program. If we 
follow the path of the parser through the grammar we will 
see that it is already long enough to give us an idea about 
the syntactical analysis of larger programs. 

In this section we will learn a way to analyze a program 
filled with syntactical errors. The parser is orientated to 
the grammar and the index, both of which you will find in 
this manual. 

How do we get to know these tools? For that we will run 
through a small example program. At the end you will surely 
agree that this is a place in data processing where one 
needs many words to describe simple facts. 

Every program must fulfill Rule 001 of the grammar: 

001 compilation compilation_l E_0_F 
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This means that after the application of the rule 
"compilationl" you can come to the end of the program. The 
characters E_0_F stand for the end. These characters lie 
in the future of our trip through the grammar and as a 
result do not concern us at the moment. Now we mustn't 
forget them because we will still need them, so we take note 
of these characters. 

"How does the Parser do this?" will be your next question. 
The parser notes information about the future of a program 
in a "memory stack", also just referred to as a "stack". 

How does one explain a "stack"? My suggestion is the 
following: Let us imagine a skyscraper with 2000 stories. 
This is the capacity of the stack in the Ada Parser. In 
this skyscraper we find an elevator with only two buttons in 
the car. Button 1 goes up a floor and button 2 goes down a 
floor. We can deposit information on every floor but we 
can’t go from the 999th floor to the 700th floor and look at 
the information on them. We can only go one floor up or 
down at a time. At first we go into the skyscraper and 
naturally find ourselves on "Floor 0". And if we go down a 
floor we negate all of the information on the last floor. We 
will see that this "construction" is sufficient to point out 
our way through the grammar. Now EOF lies in the future. 
Therefore we discard the information from "Floor 0” and go 
up a floor. 

We find ourselves now on the second floor and must use rule 
002 ("compilation_l"). 

002 compi1 ation_l context clause compilationunit 

corapilationl 
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003 ; L 

Here we have two possibilities: 

1) We choose 003, but this leans that in our 
program the ending characters E_0_F stand 
beginning to end, which is not the case; 

2) We use rule 002, which means that we must put 

away the information of the future. 

"Compilation_l" put aside, and up another floor. 
"Compilationunit" put aside and up another floor. 
Now we can use "context_clause". 

006 context_clause :: = "with" identifier . 

007 1 L 

With these rules we again have two possibilities: 

1) Use of 006 006 begins with with. This is an 

Ada word and our program must begin with with; 

2) If our program doesn’t begin with with, we 
choose possibility 007. An "L" always means that 
this rule is blank. We must then turn to the next 
rule that lies in the future of the program. 
Therefore we go another floor down, and read the 
information. We read "compilation_unit". Now we 
must choose this rule: 
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004 compilation_unit ::= "procedure" identifier fornal_part 

subprogram_spe 

005 ! "package" package se 

Our program can begin with the Ada words procedure or 
package. If it begins with procedure then we choose 
rule 004. We cannot forget to start our program with 
procedure because it is already tested. 1*11 abandon the 

"elevator" and confine myself to telling you which rules 
will be chosen by the parser. 


Product ion 


060 

063 

019 

015 

Move to line 00020 : 
043 

Move to line 00030 : 
153 

157 

158 

Move to line 00040 : 
155 
039 
016 
060 
063 
003 


End of the syntactical check. 
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17.1. Error handling: 


If the parser finds a mistake, the possibility exists for 
us to print the stack. The parser goes down with us from the 
floor where it now is and prints the respective information. 
It shows the number of the floor and a number which stands 
for the stored rules. These numbers correspond to the 
numbers which stand before the names of the rules in the 
index. For example, 010 block_statement. Here the number 10 
is shown. The Ada words are coded in the memory. They are 
preceded by the number 255 so that the parser can 
distinguish them from the rules. The list of keywords is 
found at the end of this chapter. 

Further in the stack is information which directs the parser 
to carry out certain work. Your program should not only 
have been checked for syntactical accuracy but also later be 
converted into a machine language program. So that the 
semantic analysis and the assembler will be provided with 
the necessary information, the grammar is expanded in 
characters. If these appear on the stack, the parser knows 
that it must supply the information for the following work. 
Every one of these characters is preceded by the number 252. 


- B3 
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17.2. The list of coded 


Number 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 


Ada words: 

Word 

at 

do 

if 

in 

is 

of 

or 

abs 

and 

end 

for 

mod 

new 

not 

out 

rem 

use 

xor 

body 

case 

else 

exit 

goto 

loop 

null 

task 

then 

type 

when 

with 
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127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

176 

177 

178 

179 

180 


abort 
array 
begin 
delay 
raise 
elsif 
entry 
range 
while 
accept 
access 
digits 10 
others 
pragma 
record 
return 
select 
declare 
generic 
limited 
package 
private 
renames 
reverse 
subtype 
constant 
function 
separate 
procedure 
terminate 
= > 

** 
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181 

: = 

182 

/= 

183 

>= 

184 

<= 

185 

<< 

186 

>> 

187 

<> 

188 

exception 

254 

E_0_F 
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18. The Semantic Analysis 


At the conclusion of the syntactical analysis follows the 
semantic analysis. The semantic analysis checks whether the 
program is correct according to program structure. For 
example a program can be syntactically correct making use of 
the output routine but missing the assignment of the input 
and output packages. It is not, however, semantically 
correct. In the semantic analysis all of the tests are now 
conducted which could not be done during the syntactical 
analysis. 

Examples: 

You want to direct the output to the printer with set_output 
( PRINTER ), but typed "PRONTER" instead of "PRINTER". 
Syntactically the command is correct because the Parser 
looks for an identifier in parentheses. However if the 
machine program is produced, the computer must recognize the 
device "PRONTER” and know how it should be addressed. There 
is no such device and it is clear that the command must be 
rejected. The semantic test undertakes this job. 

You have in your program forgotten to declare a data object, 
or you have incorrectly nested loops or tried out a 
possibility for which no machine program can be produced - 
in all of these cases the semantic check can give 
information as to their correctness. 

One can say in simplified terms: Everything that can only 
be formulated with words rather than additional rules is 
subject to semantic examination. 
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How does the program do this semantic test? 

When the parser checks a program for syntactical accuracy, 
it starts on its way with the first rule of grammar. It 
follows a path through the grammar, which is characteristic 
for the program. The semantic analysis follows this path and 
can then carry out the testing. 

How does the program for the semantic analysis obtain the 
necessary information? The grammar, as it is printed in 
this book, is expanded with additional symbols. If the 
parser comes upon such a symbol, it then has a specific 
action to perform. 

Example: 

It has just processed the rule which means that an 
identifier is at the end. Then it comes upon a symbol that 
instructs: Pass on this identifier to the semantic test. 
It is in this way that the semantic analysis obtains your 
information. 

Closely related to the semantic analysis is the production 
of the assembler program. If the semantic check is 
successful, we know that a correct machine program can be 
produced. Moreover, the program for the semantic analysis 
is ready to recall all the information for the production of 
the assembler program. For that reason it is easy to 
produce the assembler program parallel to the semantic 
analysis. 
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If you want to do this then you will have to save all of the 
necessary information on the disk again. This would mean a 
longer compiling time. In this method you would produce an 
executable program right after the semantic check by running 
an assembler program. This will give you the possibility of 
actively engaging in the compiling process. This method 
enables you to combine your own assembler programs with Ada 
programs or you could change programs produced by the 
compiler as you wish. So I have settled on this method. I 
find it good if one not only gives instructions to the 
compiler "for better or for worse", but also can see his own 
ideas realized in the produced machine program. 

With modern programming languages the cost for the semantic 
analysis is very high, because one wants to inform the user 
of all possible errors. In earlier programming languages 
this was not always so. The compiler in question compiled 
programs which did not work in every case. They had gaps as 
it were in the working of the rules. It is possible to use 
these gaps and draw from the computer possibilities over 
which the language actually doesn’t have control. One 
programs with "tricks", fully aware of the risk of failure. 
It is only bad luck if the programmer misses a "gap" by 
mistake, receives no error message from the compiler and as 
a result has no idea where he should look for the error in 
the program. Even the "self-proclaimed" computer experts 
couldn’t help him. I know of a mainframe computer with 
which the utilization of such a "gap” began to execute a 
program that quit after awhile and printed the message 
"computer defect", although the computer was in perfect 
working order. 
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With Ada one is protected from such undesirable surprises. 
The semantic analysis together with the production of the 
assembler program occupies a great deal memory. The 
compiler in the C-64 occupies almost all of the memory space 
available. The great memory area results in a reduction in 
size of the compiling languages. 
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19. Ada Grammar 


Why do I need the grammar? 

The grammar of the language gives information about how a 
program can be made syntactically correct. It describes the 
syntax of all possible Ada programs which can be compiled by 
the Ada compiler in this Ada training course. it can give 
you very helpful information when the compiler gives you an 
error message which you do not immediately understand. It 
can also give information about whether a specific command 
construction is possible or not. Such grammars exist for 
most programming languages, and they represent the single 
greatest aid when writing compilers. They describe what 
demands the user may make on the compiler. It is a part of 
the standard of a programming language. Learn to use the 
grammar! This knowledge will be invaluable when learning to 
use a new programming language. You can recognize the key 
points of a language by studying the grammar. You can 
recognize what possibilities the language offers you, and 
whether it would pay to learn more about the language. The 
grammar has the advantage that it yields a great deal of 
information in a very brief form. I always have the grammar 
of the programming language I am working with in reach when 
programming. For programming languages with a relatively 
small scope, such as BASIC, you can keep the grammatical 
rules in your head, but you should learn the possibilities 
and capabilities which programming languages like Ada, 
FORTRAN, or COBOL offer. 
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Information on use of the grammar can be found in the 
sections "14. The compiler operation — 16. The syntactic 
analysis." There you will find an example of the path you 
might take through the grammar when you analyze a program. 

The individual rules of the grammar are numbered and you can 
find them quite quickly with the help of the index. 
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1S.1. ThB rules of thB grammar: 


001 

compilation 

: ” 

compilations E_0_F 

002 

compilatian_l 


context.clause CDmpilation_unit 

compilation_l 

003 


■ 

■ 

L 

001 

compilatian_unit 


’’procedure” identifier format_part 

subprogram_spe 

005 


i 

• 

"package” package_se 

006 

context_clause : 

"with” identifier uiith_l context_2 

context_clause 

007 


1 

1 

L 

000 

context_2 

: - ’ 

"use” identifier use_l context_2 

000 


1 

1 

L 

010 

uuith_l 

: 

identifier uiith_l 

Oil 


■ 

I 

L 

012 

USE.l 

: : “ 

identifier use_l 

013 


1 

1 

L 

014 

subprogram_spe 

: - 

» 

015 



"is” declarative_part ’’begin” 

sequence_of.statements package_4 

’’end” subprogram_spe_l 

016 

subprogram_spe_l 

: : - 

identifier 

017 


1 

L 

018 

farmal_part 

: ** 

”C” parameter_specificotion 

parameter_spe_l ”1” 

013 


i 

i 

L 

020 

parameter_spe_l :: 


parameter_specificotion 

parameter_spe_l 

021 


: 

L 


022 parameter_specificotion ::= identiFier_list mode 

type_mark expre.l 


SS 
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023 

mode 

: “ 

”in” mode_l 

024 


! 

’’out” 

02S 


i 

i 

L 

026 

mode_l 

: : - 

’’out” 

027 


1 

1 

L 

028 

expre_l 

: : - 

expression 

029 


1 

1 

L 

030 

package_se 

; " 

identifier ”is” declarative_part 

package_l ’’end” packoge_2 

031 

1 

1 

’’body” identifier ”is” declarative_part 

packoge_3 ’’end” package_2 

032 

package_l 

: : " 

’’private” declarative_part 

033 


1 

1 

L 

034 

package_2 

: : - 

identifier 

03S 


1 

1 

L 

036 

package_3 ::- ’ 

’beg 

in” sequence.of.statements pockage_4 

037 


: 

L 

030 

package_4 

: * 

"exception” exception_handler 

exception_l 

039 


• 

i 

L 

040 

exceptional 

: : - 

exception_handler exception_l 

041 


: 

L 

042 

declarative_part 

: : " 

declarative_l declarative_part 

043 


1 

L 

044 

declarative.,! 

: “ 

"procedure” identifier formal_part 

subprogram_spe 

045 


i 

i 

’’package" package_se 

046 


t 

"use” identifier use_l 

047 


i 

’’type” identifier ”is” 

type_definition 

04B 


i 

’’subtype” identifier ”is” 

subtype_indication 

049 


j 

identifier_1ist switch_decl_l 
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050 

051 

OSS 

053 

054 

055 

055 

057 

050 

059 

050 

061 

OSS 

063 

064 

065 

066 

067 

060 

069 

070 

071 

07S 

073 

074 

075 

076 

077 

070 

079 

000 

001 

005 


switch_decl_l 


switch.decl.S 


identifier.list 
identifier.1.1 

identifier 
ident_l 


letter_or_digit 

character.literal 

string.literal 

string.l 

graphic.character 


type.definition :: 


type.d.l 


: - ’’exception” 

! ’’constant” switch.decl.S 
! subtype.indication expre.l 
I array.type.definition exprB.l 
subtype.indication expre.l 
! array.type.definition expre.l 
! universal.static.expressiDn ” 

identifier identifier.l.l 

identifier identifier.l.l 

! L 

lBtter ident.l 

letter.or.digit ident.l 
! letter.or.digit ident.l 
! L 

letter 
! digit 

graphic.character 
...... s tring_l ””” 

graphic.character string.l 
L 


::- letter 
! digit 
! space 

! special.character 
- ”[” enumeration.literal type.d.l ”1 
! range.canstraint. 

! ’’digits 10” range.canstraint 
! array.type.definition 
! ’’new” subtype.indication 

enumeration.literal type.d.l 

! L 


subtype.indication type.mark constraint 

type.mark :- identifier 
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083 

constraint 

“ range_constraint 

0B4 


! index_constraint 

005 


! L 

006 

range_constraint :: 

“ "range” range 

007 

range simple.expressian simple.expressian 

OBB 

enumeratian_literal 

::- identifier 

003 


! character_literal 

030 

array_type_definition "array” index_canstraint "of” 

campanent_subtype_indication 

031 

index_constraint :: 

- "C” range index_c_l ”3” 

03B 

index_c_l :: 

“ range index_c_l 

033 


! L 

034 

exceptian_handlBr : 

"when” exception_choice 

exception_h_l 

sequence_of_statements 

035 

exceptian.h.l :: 

“ ”!” Bxceptian.chaice exception_h_l 

036 


! L 

037 

exceptian.choice :: 

- Bxception_identiFier 

030 


! "other” 

033 

name 

_ identifier name_l 

100 


1 character_litBral 

101 

name_l 

- . identifier 

102 


! ”C” simple_expressian name_2 

103 


! L 

104 

name_2 

- simple_expressian ”1” 

1 name_3 name_4 ”3” 

106 

name_3 ::- 

relational.operator simple.expression 

107 


! L 

108 

name_4 

“ expression name_4 

103 


! L 

110 

expression 

- relation expre_2 

111 

expre_2 

“ logical.operator relation expre_2 

112 


! L 
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113 

relation : 

- 

simple.expression rel_l 

114 

rel_l ::- 

relational_operator simple_expression 

115 


! 

L 

116 

simple.expression : 


- simp_l term simp_3 

117 

simp.l :: 

- 

unary.operator 

1 IB 


1 

l 

L 

119 

simp.B :: 

- 

adding_operator term simp_3 

130 


• 

t 

L 

131 

term 

- 

Factor term_3 

133 

term_3 :: 

- 

multiplying_operator Factor term_3 

133 


1 

1 

L 

134 

Factor 

- 

primary Fac_3 

135 

Fac_3 :: 

- 

”**” primary 

136 


1 

1 

L 

137 

primary 

- 

numeric.literal 

138 


1 

l 

string.literal 

139 


1 

I 

name prim.l 

130 


1 

l 

”C” expression 

131 

prim_l 

- 

”C” expression ”1” 

133 


1 

1 

L 

133 

logical operator : 

: - ’’and” 

134 


1 

1 

"or” 

135 


1 

1 

”xor ” 

136 

relational_operator 


137 



! 

13B 



| 99 < 

139 



! ” < - ” 

140 



j 

141 



, »> » 

143 

adding_aperator 

- 

”+ ” 

143 


1 

1 


144 


• 

t 


145 

unary_operator 

- 

”+ ” 
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146 I 

147 ! ”abs” 

140 ! "not" 

149 multiplying_aperator :“ 

150 : ”/” 

151 I "mad” 

152 ! ”rem” 

153 sequence_oF_statements label_l statement seq_l 


154 

seq_l 

: “ 

label_l statement seq_l 

155 


! 

L 

156 

label.l 

: : - 

”<<” identifier ”>>” labBl 

157 


1 

L 

150 

statement 

: : » 

’’null” 

159 


1 

1 

state_l 

160 


1 

» 

”BXit” exit_l exit_2 ”;” 

161 


1 

1 

’’return” return.l 

162 


> 

1 

’’goto” identifier 

163 


1 

1 

’’raise” raise.l 

164 


• 

t 

if.statement 

165 


• 

1 

case_statement 

166 


1 

• 

block_statement 

167 

state_l 

: : “ 

identifier name_l state_2 

160 


i 

character.literal state_3 

169 


1 

loop_staternent 

170 

state_2 

: : - 

expression 

171 


1 

1 

loop_statement 

172 


1 

1 

actual_parameter_part 

173 

state_3 

: : “ 

expression 

174 


t 

1 

actual_parameter_part 

175 

if_statement 


”if” condition ’’then” 

sequence_of.statements if_ 

’’end” ”if” 

176 

if_l 

: : - 

’’else if” condition ’’then” 
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sequence_of.statements if_l 


178 if_2 


’’else” sequence_of.statements 


180 condition 

181 case_stotemBnt 


boolean.expression 


case.statement.altBrnative cose_l 


’’end” ’’case” 

182 case.statement.alternative "when” choice case_2 


183 case_l 


sequence_of _statBments 
case_statement_alternative case_l 


185 case_2 


. . _ ” * choice case_2 


187 loop_statemBnt loop_H basic.loop 1dop_3 


IBB basic_laop 


188 iteratian_rule 


181 laop_2 


’’loop” sequence_Df.statements 
’’end” ’’loop” 

"while” condition 

! ’’For” identifier ”in” loop.H range 
iteration.rulB 


183 loap_3 


identifier 


185 loop.H 


reverse 


187 block.statement::-black.l ’’begin" sequence.of.statements 

package. 1 ! ’’end” 

188 blDck.l ’’declare” declarative.! declarative.part 


200 exit.l 


::- identifier 


202 exit_2 


"when” condition 


105 



Abacus Software 


204 return.l 

205 

20G actual_porameter 

207 

20S actual_l 

209 

210 para.l 

211 

212 actual_parameter 

213 actua_l 

214 

215 raise_l 

216 

217 choice 
21B 

219 numeric_1iteral 

220 num_l 

221 

222 num_2 

223 

224 integer 

225 int_1 

226 

227 

228 exponent 

229 exponent_l 

230 

231 
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::“ expression 
! L 

part ”C” identifier ” 

actual_parameter actual_l "D" 

! L 

para.l actual_l 

! L 

: - identifier actual_parameter 

! L 

:- name actu_l 
:- ”C” name ”D” 

! L 

:- identifier 
! L 

simple_expression 
I ’’others” 

integer num_l num_H 
:- ”.” integer 
i L 

: — exponent 
! L 

:~ digit int_l 
: : “ digit int_l 

! digit int_l 
! L 

”E” exponent.l 
::= ”+” integer 
! integer 

! integer 
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13.2.. Index to the grammars 


The index is constructed os follows: 

The number of the rule is the first thing on the line. This 
appears if you output the stack during the syntactical 
analysis. Then follows the name of the rule. The number 
after this gives the number with which the rule is defined 
in the grammar. The numbers after the slash indicate the 
grammatical rules in which the given rule is used. 


001 

actua_l 

213 

/ 

212 

002 

actual_l 

20B 

/ 

206.20B 

003 

actual.parameter 

212 

/ 

206,210 

004 

actual_parameter_part 

206 

/ 

172,174 

005 

adding_aperatar 

142 

/ 

113 

006 

007 

array_type_definition 

030 

/ 

53,55,57 





00B 

basic_laop 

IBB 

/ 

1B7 

003 

black_l 

13B 

/ 

137 

010 

011 

black_statement 

137 

/ 

166 





012 

case_l 

1B3 

/ 

1B1,1B3 

013 

case_2 

IBS 

/ 

1B2,IBS 

014 

case_statement 

1B1 

/ 

165 

015 

case_statement_alternative 

1B2 / 1B1,1B3 

016 

character_literal 

066 

/ 

B3,100,168 

017 

choice 

217 

/ 

1B2,185 

01B 

compilation^ 

002 

/ 

i.e 

013 

compilation_unit 

004 

/ 

2 

020 

condition 

1B0 

/ 

175,176,IBS,202 
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021 

constraint 

003 

/ 

01 

022 

ccntext_2 

000 

/ 

6,0 

023 

024 

context.clause 

006 

/ 

2,6 





025 

declarative_l 

044 

/ 

42,150 

026 

declarative_part 

042 

/ 

15,30,31,32,42,10B 

027 

020 

digit 


/ 

65,71,224,225,226 





020 

Enumeration.literal 

000 

/ 

74,79 

030 

exception_l 

040 

/ 

30,40 

031 

exception.choice 

007 

/ 

94,95 

032 

exception_h_l 

005 

/ 

94,95 

033 

exception.handler 

004 

/ 

30,40 

034 

exit_l 

200 

/ 

160 

035 

exit_2 

202 

/ 

160 

036 

exponent 

220 

/ 

222 

037 

exponent.l 

229 

/ 

220 

030 

expre.l 

020 

/ 

22,52,53,54,55 

030 

expre_2 

111 

/ 

110,111 

040 

expression 

110 

/ 

20,56,100,130,131,170,173,100 

041 




101,204 





042 

fac_2 

125 

/ 

124 

043 

f actor 

124 

/ 

121,122 

044 

formal_part 

010 

/ 

4,44 






046 

047 

graphic_character 

070 

/ 

66,60 





040 

ident_l 

061 

/ 

60,61,62 

040 

identifier 060 

/ 4, 

6 , 

0,10,12,16,30,31,34,44,46,47, 



40,57,50,02,00,07,05,101,156,162, 





167,190,193,200,206,210,215 

050 

identifier_l_l 

050 

/ 

57,50 
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051 

idsntifier_list 

057 

/ 

22,49 

052 

if_l 

176 

/ 

175,176 

053 

if _2 

170 

/ 

175 

054 

if_statement 

175 

/ 

164 

055 

index_c_l 

092 

/ 

91,92 

05B 

index_canstraint 

091 

/ 

04,90 

057 

int_l 

225 

/ 

224,225,226 

050 

integer 

224 

/ 

219,220,229,230,231 

055 

050 

integer_rule 

109 

/ 

191 





061 

label.l 

156 

/ 

153,154,156 

062 

letter 


/ 

60,64,70 

063 

letter_or_digit 

064 

/ 

61,62 

064 

lagical_operatar 

133 

/ 

111 

065 

laap_2 

191 

/ 

187 

066 

laap_3 

193 

/ 

187 

067 

1qgP_4 

195 

/ 

190 

060 

063 

laap_statement 

107 

/ 

169,171 





070 

made 

023 

/ 

22 

071 

made_l 

026 

/ 

23 

072 

073 

multiplying_aperator 

149 

/ 

122 





074 

name 

099 

/ 

129,212,213 

075 

name_l 

101 

/ 

99,167 

076 

name_2 

104 

/ 

102 

077 

name_3 

106 

/ 

105 

070 

name.4 

100 

/ 

105,108 

073 

num_l 

220 

/ 

219 

000 

num_2 

222 

/ 

219 

001 

002 

numeric.literal 

219 

/ 

127 





003 

package_l 

032 

/ 

30 
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004 

package_E 

034 

/ 

30,31 

o 

m 

ai 

package_3 

036 

/ 

31 

006 

package_4 

030 

/ 

15,36,197 

007 

package_se 

030 

/ 

5,45 

000 

para_l 

E10 

/ 

E08 

009 

parameter_spe_l 

OSO 

/ 

18, E0 

090 

parameter_specification OSS / 18, E0 

091 

prim_l 

131 

/ 

1E9 

098 

093 

primary 

1E7 

/ 

1E4,1E5 





094 

range 

007 

/ 

86,91,9E,190 

095 

range_constraint 

006 

/ 

75,76,83 

096 

raise_l 

E15 

/ 

163 

097 

rel_l 

114 

/ 

113 

098 

relation 

113 

/ 

110,111 

099 

relatianal_operatar 

136 

/ 

106,114 

100 

101 

return_1 

E04 

/ 

161 





10E 

seq_l 

154 

/ 

153,154 

103 

sequence.of.statements 153 

/ 15,36,94,175,176,178,18E, 





188,197 

104 

simp_l 

117 

/ 

116 

105 

simp_E 

119 

/ 

116,119 

106 

simple_expression 

116 

/ 

87,108,104,106,113,114,817 

107 

space 


/ 

7E 

100 

special_character 


/ 

73 

109 

state_l 

167 

/ 

159 

110 

state_E 

170 

/ 

167 

111 

state_3 

173 

/ 

160 

HE 

statement 

158 

/ 

153,154 

113 

string_l 

060 

/ 

67,68 

114 

string_literal 

067 

/ 

1E8 

115 

subprogram_spe 

014 

/ 

4,44 
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subprogram_spe_l 

01S 

/ 

15 

subtype_indication 

OBI 

/ 

4B,5E,54,7B,BO 

switch_decl_l 

050 

/ 

43 

switch_decl_E 

054 

/ 

51 

term 

1E1 

/ 

116,119 

tsrm_E 

1EE 

/ 

1E1,1EE 

type_d_l 

073 

/ 

74,79 

type_definition 

074 

/ 

47 

typs_mork 

0BE 

/ 

EE, B1 

unary_operator 

145 

/ 

117 

use_l 

01E 

/ 

B,IE,46 

with_l 

010 

/ 

6,10 
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20. The Assembler 


The assembler is required when one wishes to convert 
assembly language programs into machine language programs. I 
would not like to delve any deeper into programming the 
microprocessor in machine language; you can find that 
information in numerous other places. What I would like to 
do is to acquaint you with the characteristics of this 
assembler. 

What does an assembly language program consist of? 

1) Instructions which will be translated into machine code 
by the assembler. 

2) Instructions which provide the assembler with information 
about the program and so control the assembly. These 
instructions are also called pseudo-instructions or pseduo- 
operations (pseudo-ops) because they do not correspond to 
machine language instructions as do regular assembly 
instructions and do not appear in the machine code. The 
disassembler cannot reproduce these instructions in its 
conversion from machine code into assembly language 
mnemonics. This is possible for instructions of type 1). 

I would like to make a few comments about the notation of 
assembly language programs: 

Assembly language programs can be written and stored like 
BASIC programs. This allows you to view and analyze the 
assembly language programs which the Ada compiler produces. 
This is perhaps the greatest aid to you. I left this 
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interface to the Ada compiler open, even though there are 
faster ways of compiling an Ada program. This allows you to 
see how the compiler goes about analyzing an Ada program, 
and exactly what the results of this analysis are. 


Comments in an assembly language program 
semicolon. A semicolon tells the assembler 
rest of the line. Comments may begin at any 
line. 


begin with a 
to ignore the 
point on the 


Example: 


10 

; This is a 

comment which 

20 

; stretches 

over several 

30 

; lines. 


40 

LDA 12 

; load acc with content 

50 


; of memory location 12 


Spaces function as separators. They separate 
elements of assembly language programs from each 
the line. An instruction ends with the end of the 
one assembler instruction is possible per line. 


the basic 
other on 
line. Only 
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20.1 Operands 

Operands can be decimal numbers, hexadecimal numbers, and 
symbols (labels, names) of arbitrary length. Symbols must 
begin with a letter. 

Examples: 

Decimal numbers: 15 

1000 

Hexadecimal numbers: 

$FFFF 

$0D 

$1234 

Symbols: 

OTTO 

JUMPDESTINATI0N1 

TEXT-OUTPUT 


Concerning type 1) commands: 

The mnemonic abbreviation of commands corresponds to the MOS 
standard. The notation for the various addressing modes is 
explained below. 

The shift and rotate commands which involve the accumulator: 

ASL ACCU 
LSR ACCU 
ROL ACCU 
ROR ACCU 


115 



Abacus Software 


ADA Training Course 


One-byte commands such as BRK as written as usual. 


Direct addressing: 

Command construction: First comes the mnemonic abbreviation, 
then a space, a number sign (#), a space if desired, and 
finally the operand. 

Examples of direct addressing: 

LDA # OTTO 
AND #OTTO 
ADC # 13 
ADC #13 
CMP # $12FF 


Zero-page and absolute addressing without index: 

Command construction: The mnemonic abbreviation, at least 
one space, operand. 

Either zero-page or absolute addressing is chosen based on 
the size of the operand. If the operand is symbol which has 
not been defined up to the current point in the assembly 
language listing, absolute addressing is chosen. This is 
done because the assembler reads the source code only once 
in order to save time. 
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Examples: 


ORA OTTO 
STA 234 
LDA $FE 
STX 12345 


Zero-page and absolute addressing with index: 

Command construction: Mnemonic, space, operand, comma, and 
"X" for the X index-register or a "Y" for the index register 
Y. 

Examples: 

STX OTTO,Y 
STY OTTO,X 
STA $44,X 
LDA 123,X 


Indexed indirect addressing: 

Command construction: mnemonic, as many spaces as desired 
(but at least one), open parenthesis, arbitrary number of 
spaces, operand, arbitrary number of spaces, comma, 
arbitrary number of spaces, an "X", close parenthesis. 

Examples: 

LDA ( OTTO ,X) 

STA ( $AA, X ) 
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Indirect indexed addressing: 

Command construction: mnemonic, at least one space, open 
parenthesis, space(s), operand, space(s), closing 
parenthesis, space(s), comma, space(s), the character "Y". 

Examples: 

LDA ( OTTO ) , Y 
STA ( 123 ) , Y 

Indirect absolute addressing: 

This type of addressing can be used only with the JMP 
command. 

Example: 

JMP ( 12345 ) 


Relative addressing: 

This method of addressing is used for the-relative jumps. 
Command construction: mnemonic, at least one space, operand. 
The operand must in this case be a label marking a jump 
destination. You will learn in the next section how this 
works. 

Examples: 

BCC LABEL-1 
BPL OUTPUT 
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20.2 Pseudo-instructions 

The pseudo-ops control the assembler and have only an 
indirect effect on the corresponding machine language 
program. Pseudo-ops are denoted by a preceding period. There 
are also abbreviations for most of the pseudo-ops in order 
to allow you to write as short an assembly source file as 
possible. 

Take a look at the assembly language programs the compiler 
creates. This alone should clarify many questions which you 
night have and you have a collection of examples which you 
can refer to and expand at any time. Once you have practice 
in programming in Ada and assembly language, and are 
familiar with how the compiler works, you can try to 
optimize the assembly source code. This Ada compiler makes 
no attempt at optimization. 


The instruction: .START 

(.START) sets the address at which your machine language 
program will begin. The operand following determines the 
start address. 


Example: 


.START 2047 


The instruction: .END 

(.END) tells the assembler that the assembly language 
program is now done. No example is required. 
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The instruction: .LABEL or .L 

With this instruction you can define symbols as jump 
destinations. The symbol is assigned the address of the 
memory location at which the next machine language command 
will be placed. If you like, you can also you use this 
symbol to provide the accumulator with the contents of this 
memory location, for instance. 

Examples: 


Label-1 .LABEL 
Label-1 .L 


The instruction: .EQU or .E 

This instruction permits values to be assigned to symbols. 
In the assembly, the symbol will be replaced by its value. A 
symbol may be assigned a value only once with .EQU. 

Examples: 

CHARLOTTE .EQU $FEFE 
HANS .EQU 123 

JOHN .E MONICA 

The instruction: .VAREQU or .V 

This instruction is used in order to change the value of a 
symbol. 
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Examples: 

JOHN .VAREQU CHARLOTTE 

JOHN .V SUSANNE 


The instruction: .BLOCK or .BL 

You need this instruction to reserve space for data in an 
assembly language program. The operand behind the 
instruction gives the number of memory locations (bytes) to 
be reserved. 

Examples: 

-BLOCK 555 
•BL HANS 


The instruction: .TEXT or .T 

If you want to save character strings, you would use this 
command. The character string iB saved at the location at 
which the instruction occurs. The string is enclosed in 
quotation marks. The first quotation mark is not saved, 
although the last is. A character with value zero is also 
added. This command is most often used to later output the 
character string. To do this we need only the address at 

which the text can be found, pass this to a ROM routine, and 

jump to this routine in order to output the text. See also 
the examples for the command .COUNT. 

Examples: 

.TEXT "Hello, I’m here." 

.T "That’s just great.” 


121 



Abacus Software 


ADA Training Course 


The instruction: .BYTE or .B 

This command places the value of the operand into the next 
memory location and reserves it. The value of the operand 
must correspondingly lie between 0 and 255. 

Examples: 

.BYTE 66 
.B CARLA 

The instruction: .DBYTE or .DB 

The value of the 16-bit operand is broken into two 8-bit 
quantities. Then the most-significant of the two is placed 
into memory, followed by the least-significant byte. These 
memory locations are also reserved. 

Examples: 

.DBYTE 256 
.DB 254 

The first command places the values 255 and 1 in memory. 

The second command places the values 254 and 0 in memory. 


The instruction: .WORD or .W 

This instruction corresponds to the .DBYTE instruction, but 
it stores first the least-significant byte and then the 
most-significant. 
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The instruction: .COUNT or ,C 

If the assembler encounters this command, the following 
happens: When the assembler is started, it places the 

symbols CL and CH in its symbol table. .COUNT assigns values 
to these symbols. The address at which the next data will be 
placed is divided into two 8-bit pieces. CL is assigned the 
least-significant byte and CH the most-significant. If CL or 
CL appears in the next instructions, these values are 
substituted. .COUNT actualizes these values. 

Example: 

Output the sentence "John is a bad boy!" 


JMP TEXT-1 


jump over the 



sentence 

.COUNT 



.TEXT "John 

is 

a bad boy!" 

TEXT-1 .LABEL 

i 

jump 


> 

destination 

.LDY # CL 

> 

load the pntrs 

.LDA # CH 

i 

for the jump 


» 

to the ROM 


> 

routine 

JSR 

» 

jump to ROM 

LDA # 13 

> 

load CR 


» 

character 

JSR 

» 

jump to the 


t 

kernal output 


» 

routine 


I hope that you have fun programming in assembly language! 
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21. The Disassembler: 


The disassembler is required when you want to analyze 
machine language programs. With the help of the assembler 
you can write machine language programs which you can either 
run separately or use in a BASIC or Ada program. 

A disassembler converts machine code back into the assembly 
language mnemonics which produced it (or more exactly, to 
the mnemonics to which the codes correspond). It is not 
within the scope of this book to discuss programming 65XX 
family microprocessors. There are a number of good books 
available on this topic. I would like to recommend the book 
by Lothar Englisch The Machine Language Book for the 
Commodore 64. Englisch has a very good programming style. 
Also worthy of recommendation are the "classics" by Rodney 
Zaks and Lance A. Leventhal. These two concern only the 6502 
microprocessor in general and are neither limited to nor do 
they give specific information about the Commodore 64. The 
Programming Manual for the R6500 family from Rockwell 
International is also good. 


The disassembler is stored as a compressed BASIC program on 
the disk. This has the advantage that you can move the 
disassembler around in memory as desired. This is not 
possible with a compiled program. This makes up for the 
decreased speed in my opinion. If you have a machine 
language program at locations 2047 to 10000, for example, 
you can load the disassembler at location 10002. To do this, 
enter the following lines in command mode: 
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POKE 44, INT( 10002/256 ) 

POKE 43, 10002 - 256 * PEEK( 44 ) 

POKE 10002 -1,0 

You can then load the disassembler with: 

LOAD "DISASSEMBLER",8 

If the machine language program lies outside the range 2047 
- 12000, you can omit the first three lines of this 
procedure. 

If you have loaded the disassembler at location other than 
normal (other than typing simply LOAD "DISASSEMBLER",8), you 
must be sure to return the computer to its original 
condition when you are finished. This is done with the 
following lines: 

POKE 43,1 
POKE 44,8 

If you want to know how far the program which you have in 
memory extends, enter: 

PRINT PEEK(45) + PEEK(46) * 256 

Load the disassembler and start it with: 

RUN 

A menu appears from which you can select the various 
commands of the disassembler. Let us go through the commands 
one by one. 
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M : MENU 

By pressing the <M> key the menu reappears. This allows you 
to be informed of the commands at your disposal. 

F : FREE SPACE 

This command tells you how many free memory locations are 
left, memory locations whose addresses are higher than the 
end address of the disassembler. You can get more space for 
machine language programs by reducing the space required by 
the disassembler. You must POKE the appropriate values into 
memory locations 45 and 46 in order to do this. 

D : DECIMAL TO HEX 

With this command you can convert a decimal number into its 
hexadecimal equivalent. Hexadecimal numbers are often 
required when working in machine language, but people still 
prefer to work with decimal. This command and the one that 
follows are therefore two of my favorite commands. 

H : HEXADECIMAL TO DECIMAL 

You can convert a hexadecimal number into a decimal number. 

A : SET ADDRESSES 

Here you can tell the disassembler in which memory range you 
would like to work in. 
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F : MOVE POINTER FORWARD 

At the start of the program the work pointer points to the 
memory location set previously by the preceding command. By 
pressing the <F> key you increment the pointer by one and 
output the contents of the location to which it points on 
the screen. 

B : MOVE POINTER BACKWARD 

With this command you can decrement the pointer by one and 
output the contents of the memory location in question. 

P : POKE 

By pressing this key you can change the contents of the 
memory location to which the work pointer points. You will 
be asked for the new contents of the address. Enter this and 
press <RETURN>. The contents of the memory location are then 
changed and the pointer is incremented by one. 

I : INSERT BYTES 

You will be asked for the number of bytes to be inserted. 
Enter the number and press <RETURN>. Within the selected 
memory range, all the contents of the memory locations at 
the current pointer position will be moved upwards in memory 
by the number of bytes to be inserted. The memory locations 
so freed are filled with the decimal value 234. This is the 
op-code for the microprocessor command NOP : NO OPERATION. 
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D : DELETE BYTES 


You you nust enter the number of bytes to be deleted, 
many bytes will then by deleted at the pointer position 
rest of the selected memory area is then moved 
correspondingly. 


This 

The 

down 


Y : SYS(xxxxx) 


With the <Y> key you can execute a machine language program 
which starts at the memory location indicated. The address 
corresponds to the start address of the previously-chosen 
memory range. 


D : DISASSEMBLE & PRINT 


Now we come to the disassembling. With <D> we can output a 
disassembled program to a printer. It appears in hexadecimal 
as well as decimal notation. We first decide whether we want 
to enter the start and end addresses in hexadecimal or 
decimal. If we enter a character other than "Y", we must 
enter the addresses in decimal. We can end the output at any 
time by pressing <RETURN>. 

F5 : DISASSEMBLE AND PRINT DEC 


This command outputs the disassembled program which 
at the current pointer position on the screen in 
form. 


begins 

decimal 
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F7 : DISASSEMBLE AND PRINT HEX 

Outputs the disassembled program in hexadecimal form, 
otherwise as command F5. 

S : SAVE TO DISK 

With this command you can save the contents of a memory 
range on a diskette. 

L : LOAD FROM DISK 

With this command you can load the contents of a saved 
memory range into the memory of the computer from disk. 

Try out all of the disassembler commands. Practice is the 
best way to become familiar with anything, and the best way 
to be able to work efficiently with the disassembler. 
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22. Compiler error Messages: 


When you conpile a program, you will certainly find that the 
compiler has discovered one or more errors in your program. 
There is no reason to doubt that these errors are valid, 
although sometimes one would like to. 

Errors which will be discovered in the syntactic analysis. 

If the compiler discovers an error during the syntactic 
analysis, it interrupts the analysis. It outputs the line in 
which it discovered the error. The line can only be output 
in the form in which the lexical analysis left it. The line 
therefore does not have its original form, but it can still 
be easily read. The last character printed on the line is 
the one which caused the error. The computer will also tell 
you which characters (or keywords) would be possible at the 
given place. This does not mean that any of these character 
would work in this spot, but that the compiler carried its 
analysis one step further. In the next step it was able to 
reduce the number of possible characters. The characters 
given are intended to be suggestions to the programmer as to 
what should go in the line. 

The compiler then informs you which character it would have 
expected in the course of the continuing analysis. This 
character must appear in your program. It is also possible, 
however, that the compiler has gotten so far off track in 
the analysis up to this point that this message is of no 
help. You do have an idea of what the compiler expected and 
how it understood the last instruction. 
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The compiler now asks you if you want it to output the 
stack. Refer to the section on working with the compiler for 
more information about the stack. If you enter a character 
other than "Y" followed by the <RETURN> key, the stack will 
not be printed. If you press only the <RETURN> key, you can 
proceed step by step through the stack by pressing any key. 

Having done all this, the compiler attempts to continue with 
the syntactic analysis. It is possible that one error may 
result in the compiler getting off track and printing many 
more error messages which are really only indirect results 
of the first real error. This is a fault of all compilers, 
however. You can learn why this is so in the sections 
dealing with the compiler. 

The most common error message during the semantic analysis 
is "This possibility not implemented!" This indicates that 
you have chosen a program construction which is 
syntactically correct but for which no machine code can be 
created. Otherwise you will get information on what you have 
done wrong. 

Don’t despair! Only through practice can one make any 
progress in data processing. Only he who knows all the error 
messages of his compiler is really acquainted with it! 
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23. Run-tiae Errors: 


Run-time errors are those which occur while the program is 
running, not while it is being compiled. 

If your program contains a lexical, syntactic, or semantic 
error, you get an error message already at compile time. You 
can then correct your program according to the error 
message. The most concrete error messages are those produced 
during the syntactic analysis. The program changes a great 
deal in form from step to step during the compilation, 
although the logic does not change. 

The machine language program created contains only the 
necessary information. Anything not absolutely required for 
its creation has been lost along the way. It is then very 
short and can be executed quickly. The names of your data 
objects are of no interest to the machine language program. 
It knows only at which memory location it can find the data 
object. 

If an error occurs during the execution of the program, the 
microprocessor stops executing the program and the operating 
system outputs an error message. For example, if a floating¬ 
point variable is assigned the value 6E+50 during the course 
of a program, the program will be interrupts and the message 
"overflow" will be printed. You generally do not know where 
this error occurred and what line to search for the error. 
The computer cannot give you this information because it 
does not know it anymore. 
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23.1 TRACE 

In order to make it easier to find these sorts of errors and 
also allow you follow the execution of your program, there 
is the possibility to output a "trace" of your program. The 
trace consists of outputting the numbers of the lines as 
they are executed. This way you always know which line is by 
executing at any given time and can so follow the program 
course. 

The compiler must be told from the start that a program is 
to be created which will leave a trace. The editor will ask 
you when you tell it to compile a program if you want have a 
trace or not. If so, type a "Y" and then press <RETURN>. If 
you press <RETURN> without typing anything, you will get a 
program without a trace. You can output the trace to a 
printer with the set_output command. 

A program with trace is somewhat longer than without because 
the information about the line numbers must be present in 
the machine language program. The assembly time is also 
correspondingly longer. 

With the help of the trace and additional output with the 
put command, you can narrow down the possible locations for 
an error. 
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24. List of Ada Keywords: 


This list contains all Ada keywords, including those which 
are not supported in our Ada training course. The lexical 
analysis, however, recognizes all valid Ada keywords, so 
that we cannot use one which might interfere with the 
program’s successful compilation on a more comprehensive 
compiler. This is done to improve the portability of the 
programs created with this compiler. 

The keywords are protected or "reserved." This means that 
they cannot be used as names by the programmer. 


abort 

accept 

and 

array 

body 

case 

delay 

delta 

else 

elsif 

except ion 

exit 

generic 

goto 

is 

limited 

new 

not 

or 

others 

pragma 

private 

range 

record 

return 

reverse 

subtype 

task 

type 

use 

with 

xor 


access 

all 

at 

begin 

constant 

declare 

digits 

do 

end 

entry 

for 

function 

if 

in 

loop 

mod 

null 

of 

out 

package 

procedure 

raise 

rem 

renames 

select 

separate 

terminate 

then 

when 

while 
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25. Problem Solutions: 


These solutions are intended to help you if you find that 
you are not able to formulate a working solution to the 
practice problems posed at various points in this book. Look 
through the listings and study my suggestions. These are not 
intended to represent the best solutions to the problems but 
they are reasonably efficient and do solve the problems. I 
have included plenty of comments to help you follow the 
program flow. 

As I said, there are theoretically many possible ways to 
write a program which yield the same result, an I am 
convinced that you will find a number of elegant 
possibi1ities. 


The suggested program solutions are included on the Ada 
Training Course diskette. These may be loaded from the 
"editor", they must be saved and compiled on a separate data 
diskette. DO NOT COMPILE THESE PROGRAMS ON THE MASTER 
DISKETTE!• 


Also included on the master diskette is a DEMO program and 
the compiled version of the program, DEMO.OBJ. The DEMO.OBJ 
program may be simply loaded and RUN. 
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00010 with TEXT_ID; use TEXT_IQ; 

00020 with CBM_64 ; use CBM—64; 

00030 — 

00040 — Example for the input and output o-f data 
00050 — The name and weight o-f the user 
00060 — will be entered and printed 
00070 — 

00080 procedure IN_0UT is 
00090 — 

00100 — Declaration o-f the string variable -for 
00110 — name o-f the user 
00120 — 

00130 NAME : string; 

00140 — 

00150 — Declaration of the floating- 
00160 — point variables for the weight 
00170 — 

00180 WEIGHT : float; 

00190 — 

00200 begin 
00210 — 

00220 screenjlr; 


00230 

— 




00240 

set_row (5) ; 



00250 

— 




00260 

put 

( " Please enter your 

name: 11 ) ; 

00270 

— 




00280 

set__row (8); set_col (4); 


00290 

— 




00300 

get 

( NAME ); 



00310 

— 




00320 

new_.line; put ( 1 

' Your name is :" ); 

00330 

put 

( NAME >; 



00340 

— 




00350 

new, 

_1 i n e < 3 > ; 



00360 

put 

( " Please 

enter your 

weight: " ) ; 

00370 

— 




00380 

new, 

_line; set_col (4); get 

(WEIGHT ); 

00390 

new_1 ine (2); 



00400 

put, 

_1 ine ( " Yoi. 

i weigh : ' 

' >; 

00410 

put 

( WEIGHT ); 



00420 

— 




00430 

end IN 

—OUT ; 




13B 



Abacus Software 


ADA Training Course 


value assign 


00010 with TEXT_I0 ; use TEXT_ID; 

00020 with CBt1__64 ; use CBM__64 ; 

00030 — 

00040 — This Program prints a reciept. 

00050 — 

00060 -- It asks far information about the transcatian. 
00070 — Data is entered on the keyboard and then 
00080 — sent to the Printer. 

00080 — 

00100 procedure UALUE__ASSIGN is 
00110 — 

00120 — Declare the string variables : 

00130 — 

00140 BUY : constant string ’’bought on”; 

00150 TAX„RATE constant string :” ”4% sales tax 

00160 DISKETTE ' string ; 

00170 DATE : string; 

00180 NUnBER__D ISK : string; 

00180 NAME : string; 

00200 — 

00210 — The Price as floating-point 
00220 — variables. 

00230 — 

00240 PRICE : float 0; 

00250 STATE_TAX : float : - O.04; 

00260 — 

00270 begin 
00280 — 

00280 screen jlr ; 

00300 — 

00310 put„„.line C ’’Enter the buyer : ” 1 ; 

00320 get C NAME 1; 

00330 — 

00340 new,..„,line; put_.line C ’’Enter the date of the sale 

: ” 1 ; 

00350 get C DATE 1; 

00360 — 

00370 — Build the first line. 

00380 — 

00380 NAME C 35..43 1 := BUY C 1..81; 

00400 NAME C 46..54 1 DATE C 1..33; 

W- 00410 -- 

00420 -- Output the first line tc the screen. 
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00430 

00440 

00450 

00460 

00470 

00480 

00430 

00500 

00510 

005B0 

00530 

00540 

00550 


put_line C NAME D; 
neui_line ; 

Build the second line. 

put_line C "Number if Diskettes purchased? 

get C NUMBER_DISK D; 

put_line C "Total amount? ”1; 

get C PRICE D; 

DISKETTE C 1..4 I NUMBER..,_D ISK C 1..4 ]; 

DISKETTE C 6..35 1 "Diskettes at a Price of 


00560 — 

00570 put C DISKETTE 1; put C PRICE ]; 

005B0 neui line ; 

00530 — 

00600 — 

00610 — Build the third line : 

00620 — 

00630 STATE TAX PRICE * STATE_TAX; 

00640 — 

00650 put C TAX_RATE 1; put C STATE_TAX 1 

00660 neui_line ; 

00670 — 

006B0 — 

00630 — Output tc the Printer, 

00700 — 

00710 set_output C printer D; 

00720 put_l ine C NAME I; 

00730 put C DISKETTE ]; put C PRICE I; 
00740 new_,line ; 

00750 put C TAX_RATE 1 ; put C STATE....TAX I ; 

00760 new_line ; 

00770 — 

007B0 set„.jcutput C screen D ; 

00730 — 

00B00 end UALUE,„ASSIGN ; 
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1 oops 


00010 with TEXT_I0; use TEXT_I0; 
00020 with CBM_64 ; use CBM_jS4; 
00030 — 

00040 procedure NUMBER_LD0F'S is 
00050 — 

00060 —declare the number variables 
00070 — 


000B0 

NUMBER : -float :=0; 


00090 

HILF : -float ; 


00100 -- 



001lO begin 


00120 — 



00130 — 

output comments. 


00140 — 



00150 

screen_clr; new_line (5); 


00160 

put_l ine ( "Output the even 

numbers :">; 

00170 — 



00180 — 

Setup the f irst_loop. 


00190 — 



00200 

FIRST : loop 


00210 

— 


00220 

NUMBER := NUMBER + 

1 ; 

00230 

— 


00240 

— The -first_loop 

will quit 

00250 

— when the NUMBER 

is greater ■ 

00260 

— 


00270 

e;-:it FIRST when 

NUMBER > 50 

00280 

— 


00290 

— Output the even 

numbers. 

00300 

— 


00310 

HILF := NUMBER * 2 

; 

00320 

put ( HILF’ ); new_line; 

00330 

— 


00340 

end 1oop FIRST; 


00350 — 



00360 — 

Output the odd numbers. 


00370 — 



00380 

put_line ( “Output the odd nmubers!"); 

00390 — 



00400 — 

Setup the second_loop. 


00410 — 



00420 

-for I in 50. . 99 loop 


00430 

— 


00440 

HILF : = float ( I >; HILF := 

: HILF * 2 ; 

HILF + 1 

; 


00460 

— Output, the odd numbers. 


00470 

— 


00480 

put ( HILF ); new_line; 


00490 

— 


00500 

end loop; 



HILF 


00510 — 

00520 end NUMBER_LOOP? 
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deci si on 


00010 with TEXT_10; use TEXT_IQ; 

00020 with CBM_64 ; use CBM_64; 

00030 — 

00040 procedure DECISION is 
00050 — 

00060 — 

00070 — de-fine the test variable. 

00080 — 

00090 TEST : -float; 

00100 — 

00110 — 

00120 begin 
00130 — 

00140 screen_jclr; 

00150 — 

00160 new_line ( 5 ); 

00170 — 

00180 put_line ( “Output Printer (1) / Screen (2) ?">; 

00190 — 

00200 get ( TEST ); 

00210 — 

00220 i-f TEST=1 then 

00230 — 

00240 — Output to the Printer. 

00250 — 

00260 set output ( printer ); 

00270 put_line ( "Block structures are great!"); 

00280 set_output ( screen ) ; 

00290 — 

00300 — 

00310 else 

00320 — 

00330 — Output to the Screen. 

00340 — 

00350 put_line < "Block structures are great!"); 

00360 

00370 

00380 end i-f; 

00390 — 

00400 end DECISION ; 


142 



Abacus Software 


ADA Training Course 


control 


00010 with TEXT_I0; use TEXT_ia ; 
00020 with CBM_64 ; use CBM_j64; 
00030 — 


00040 procedure BCREEN_C0NTR0L 
00050 — 

00060 begin 


00070 — 
00080 
00090 — 
00100 — 
ooi io 


Clear the screen. 
screen_jclr ; 

Set border to grey 

set_border ( grey_ 


1 5 


00120 — 

00130 — Set background to white. 
00140 — 


00150 
00160 — 
00170 — 
00180 — 
00190 
00200 


set_bkgnd ( white ); 

Set the cursor. 

set_row ( 10 ) ; 

set_col ( 20 ) ; 


00210 — 

00220 — Set the character color to black. 


00230 — 
00240 
00250 — 
00260 — 
00270 — 
002SO 
00290 — 
00300 — 
00310 — 
00320 
00330 — 
00340 end 


set_type ( black ); 

Output "R 10 , C 20 ". 

put ( "R 10 , C 20 " ); 

Set cursor in upper left hand corner 
of the screen, 
cursor Jiome; 

SCREEN_CONTROL. ; 
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dec 1 <=»l r~ t i on s 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00 150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 


with TEXT_I0; use TEXT_I0; 
with CBM_.64 ; use CBM_64 ; 

procedure DECLARATIONS is 

— Declare the Integer Constant. 

WHOLE : constant integer -1 ; 

— Declare the -floating-point number. 
FL0ATF' : constant -float := 0.3e-6 ; 

— Declare the String constant. 

STR : constant string : =- "Hi there!" 

— Declare the Integer variable. 

INT_VAR : integer ; 

— Declare the -floating-point variables 
PR I CE_CHEESE. PR I CE_SAUSA6E : -float 

— Declare the strinq variable. 
HOUSENAME : string ;= "Sasse" ; 

— End of the Dec 1arations. 
begin 


00340 nul1; 

00350 — 

00360 end DECLARATIONS ; 
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Make vour '64 
work fulltime 


MAKE YOUR OWN CHARTS... 


CHARTPAK-84 

produces professional 
quality charts and n 
graphs instantly from £ 
your data. 8 chart for- £ 
mats. Hardcopy in two . 
sizes to popular dot $ 
matrix printers. S39.95 > 
ISBN# 0-916439-19-4 



Also Available CHARTPLOT-64 for unsurpassed quality charts on 
plotters. ISBN# 0-916439-20-8 $84.95 


CHART YOUR OWN STOCKS... 


TAS-64 

sophisticated technical 
analysis charting 
package for the serious 
stock market investor. 

Capture data from 
DJN/RS or Warner ser¬ 
vices or enter and edit 
data at keyboard. 7 mov¬ 
ing averages, 3 oscillators, trading bands, least squares, 5 vol 
ume indicators, relative charts, much more. Hardcopy in two 
sizes, most printers. ISBN# 0-916439-24-0 $84.95 



DETAIL YOUR DESIGNS 

CADPAK-64 

superb lightpen design 
tool, exact placement of 
object using our Accu- 
Point positioning. Has 
two complete screens. 

Draw LINES, BOXes, 

CIRCLES, ELLIPSES; 
pattern FILLing; freehand 
DRAW; COPY sections 
of screen; ZOOM in and do detail work. Hard copy in two sizes 
to popular dot matrix printers. ISBN# 0-916439-18-6 $49.95 


\\ P u n i 1 

o 

CADPAK- wi" J#f 
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DO YOUR OWN WORD PROCESSING 


TEXTOM AT-64 

flexible worprocessing 
package supporting 40 or 
80 columns with horizon¬ 
tal scrolling. Commands 
are clearty displayed on 
the screen awaiting your 
choice. Quickly move from 
editing to formatting to 
merging to utilities. Will 
work with virtually any prin 
ter. 



CREATE SPREADSHEETS & GRAPHS.. 

POWER PLAN-64 

not only a powerful 
spreadsheet packages 
available, but with built in 
graphics too. The 275 
page manual has tutorial 
section ahd HELP screens 
are always available. 

Features field protection; 
text formatting, windowing; 
row and column copy, 
sort; duplicate and delete. 

ISBN# 0*916439-22-4 
$49.95 


FREE PEEKS A POKES POSTER WITH SOFTWARE 

For name & address of your nearest dealer call (616) 241-5510 
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ORGANIZE YOUR DATA... 

DATAMAT-64 

powerful, yet easy-to- 
use data management 
package. Free form 
design of screen using 
up to 50 fields per 
record. Maximum of 
2000 records per 
diskette. Complete and 
flexible reporting. Sort- r 
ing on multiple fields in any combination. Select records for prin¬ 
ting in desired format. ISBN# 0-918439-16-X $39.95 
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0th*r UtlM miiibla. For FREE CATALOG and name of naaraal daalar. art la m call (111) 
Z41-5510. For postage and handling, include $4.00 ($6 00 foreign) per order Money Order 
and checks m U S dollars only Mastercard. VISA and American Express accepled Michigan 
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Required Reading for 
vour COMMODORE 64 



TRICKS & TIPS FOR YOUR C-64 

treasure chest ot easy-to-use programming techni¬ 
ques Advanced graphics, easy data input, enhanced 
BASIC, CP/M, character sets, transferring data bet¬ 
ween computers, more 

ISBN# 0-916439 03 8 275 pages $19.95 

GRAPHICS BOOK FOR C-64 - from 
fundamentals to advanced topics this is most com¬ 
plete reference available. Sprite animation, Hires, 
Multicolor, lightpen, IRO, 3D graphics, projections. 
Dozens of samples. 

ISBN# 0-916439-05-4 350 pagai $19.95 

SCIENCE & ENGINEERING ON 

THE C-64 • starts by discussing variable types, 
computational accuracy, sort algorithms, more. 
Topics Irom chemistry, physics, biology, 
astronomy, electronics Many programs. 

ISBN# 0-916439-09-7 250 pages $19.95 


ANATOMY OF 1541 DISK DRIVE - 

bestselling handbook available on using the floppy 
disk Clearly explains disk files with many examples 
and utilities. Includes complete commented 1541 
ROM listings 

ISBN# 0-916439-01 1 320 pages $19.95 

ANATOMY OF COMMODORE 64 - 

insider's guide to the '64 internals Describes 
graphics, sound synthesis. 1/0. kernal routines, 
more Includes complete commented ROM listings 
Fourth printing. 

ISBN# 0 916439-003 300 pages $19 95 

IDEAS FOR USE ON YOUR C-64 - 

Wonder what to do with your '64? Dozens of useful 
ideas including complete listings for auto expenses, 
electronic calculator, store window advertising, 
recipe file, more 

ISBN# 0-916439-07-0 200 pages $12.95 


PEEKS & POKES FOR THE C-64 - 

programming quickies that will simply amaze you. 
This guide is packed full of techniques for the BASIC 
programmer. 

ISBN# 0-916439-13-5 1B0 pages $14.95 

ADVANCED MACHINE LANGUAGE 

FOR C-64 - covers topics such as video con¬ 
troller. timer and real time clock, serial and parallel 
I/O, extending BASIC commands, interrupts Dozens 
of sample listings. 

ISBN# 0-916439-06-2 210 pagai $14.95 

ADVENTURE QAM E WRITER’S 
HANDBOOK - is a step -by-step guide to 
designing and writing your own adventure games. 
Includes listing for an automated adventure game 
generator. 

ISBN# 9-916439-14-3 200 pages $14.95 


Call today for the name of your nearest local dealer Phone:(616) 241-5510 

Other titles are available, call or BSB 

Writ© TOT 3 complete tree C3t3lOg. Michigan residents include 4% sales tax CANADA: Book Center, Montreal Phone (514) 332-4154 
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ADA 

TRAINING 

COURSE 

Language of the Future 


Learn ADA, official development language for the U.S. 
Department of Defense. The ADA TRAINING COURSE is 
an introduction to this language for the Commodore 64 
user. It presents the basics of the ADA language with an 
m-depth user's manual and disk-based assembler. 

You’ll learn the fundamentals of the ADA programming 
language, which usually runs on mainframe computers 

much larger than the ’64. 

The ADA TRAINING COURSE supports a comprehensive 
subset of the high-level ADA language. You’ll learn about 
structured programming, modular program construction, 
lexical, semantic and syntatical analysis, constant & 
variable definitions, types and much more. 

The ADA TRAINING COURSE indudes a source file editor, 
syntax checker, semantics checker, assembler, dis¬ 
assembler and a comprehensive 140+ page step-by-step 
manual. 

For Commodore 64 with 1541 disk drive. Printer optional. 
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